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You hover on the fringe, five parsecs 
from initialization of your mission. Your 
culture is tired and in need of new vitality. 
The Chamber can duplicate the essence of 
life from any species and you're about to 
start your "collection." What fate awaits 
you on this unique mission? Is it true that 
cultures opposed to your sampling have 
been preparing their defenses and stand 
ready to resist your intrusions? 

The first module is prepared for take-off 
— diversions thru Envyrn^'^ presents 
Parsec^'^, a graphics space adventure 
unlil<e any you've ever played. Parsec^'^, 
created with the EnvyrnTw graphics editor, 
simuLates deep space in your TRS-80® 
computer, creating an action-filled field of 
play larger than any other microcomputer 
game. Parsec"^*^ takes you beyond the 
screen and into worlds not yet seen by you 
or your computer. Join the adventure — 
subscribe to diversions thru Envyrn^"^ now 
or send $20 for Parsec™, the first of six 
modules to be released in 1982. 



liversions 



thru Eni^krn 



6 South Street Milford, NH 03055 

D One-year subscription (6 modules) — $60.00 
n Sample Envyrnment™ Parsec™only — $20.00 
Name 

Address 



City/State 

D Payment enclosed 

n MasterCard D VISA 
Name of Cardholder 



-Zip- 



Exp.Date. 



MC# and lnterbank#/VISA#_ 
Signature 



I own a 48K TRS-80® D Model I D Model 

TRS-80 is a registered trademarl< of Tandy Corporation 



Putting 
micro- 
graphics 
into 
action 




Micrographics are 
now practical. With 
EnvyrnTM, maps, charts, 
graphs, floor plans, or any 
physical situation may 
be created or duplicated — 
in three levels of resolution. 
After you've created your 
graphics, save them, redesign them, 
create hard copy, and put them into 
action. With the artificial intel- 
ligence features of Envyrn^M, you 
can make your graphics 
"smart," with prescribed 
reactions and information hidden 
under the display. You can truly 
create your own world. 

In the EnvyrnTM Participation Pro- 
gram, you will be a part of the 
documented experience in this new 
software innovation. During your full 
year of participation, you will 
receive the Initial Envyrn^)^ editor 
(a much expanded version of the 
one published in SoftSide), 
extensive supporting documentation, 
program notes, suggested applica- 
tions and at least one completely 
updated editor later in the year — 
all for only $200. Envyrn^M is des- 
tined to become one of the stand- 
ard utilities in your program library. 
Take part in this unique experience. 
The Envyrn^M Participation Program 
— Putting micrographics into 
action. 
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Participation Program 

6 South Street, Milford, NH 03055 



D One-year subscription to the 
EnvyrnTM Participation Program — $200.00 

Name 

Address 



City/State 

D Payment enclosed 

D MasterCard D VISA 
Name of Cardholder 



-Zip- 



Exp.Date_ 



MC# and lnterbank#/VISA#_ 
Signature 



own a 48K TRS-80® D Model I D Model III 

TRS-80 is a registered trademark of Tandy Corporation 
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Titan is our featured program this month. On 
the cover an astronaut is shown flying to Titan, 
one of Saturn's moons. Will she succeed in her 
mining operation there? Illustration by Bill 
Giese. 
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SoftSide DV, the magazine 
of the future, is here! 



If your computer could pick a 
magazine, wouldn't it prefer one 
in its own language? Now 
there's one available. . • 'f 

SoftSide DV . 

is an enhance- * 

ment of the *' . ■ ■ 

SoftSide ^ ^ .■■ . - ^ 

you have 
in your 
hands. 



SoftSide DV contains 
not only the complete * 
programs listed in ' , 
levery month's issue of . 
SoftSide, but additional ', 
programs of every " ' , 

conceivable type, as well 
— multiple and Machine 
Language programs, modified ,;.; 
languages, ongoing ' >i 

modular programs and software 
so extensive, it would take an . i^' 
entire issue of SoftSide just to i, 

print the code. Only the 
'documentation for these programs -' ' 
will appear in SoftSide Magazine, a 
NOT the code. V *w' 

Feel as though you're missing 
something? You are! But, you needn't 
miss out on another issue. SoftSide 
DV is now available for Apple™, '. . • ' ' 

AtariTM and the TRS-80™. The cost to .. ■' 

you — $125 for 12 magazines and 12 '\ 
disks, packed with some of the best •' • 

software available, all delivered to your • . 

home in the next year. For orders outside 
the USA, please add $36. For your 
convenience, we offer an installment payment 
plan for VISA and MasterCard holders: You pay 
only $32.50 per quarter (a total of $130, which 
includes a $5 billing charge). Please use the bind- 
in card in this issue to order. 

Computerists are offered the rare opportunity of 
marching into a new frontier. Advance to the front of 
the parade by subscribing to SoftSide DV, the magazine 
of the future, available today! 





by Jon Voskuil 



I am sitting at my desk, typing on my 
Apple's keyboard. The letters I type 
are being displayed, by the text pro- 
cessor program I'm using, on the video 
monitor in front of me. Since I'm 
writing in my head at the same time 
that I'm typing, I'm doing a lot of 
backspacing over poorly worded 
phrases, going back and deleting, in- 
serting, and changing assorted words 
and sentences. Every few minutes I 
type a few control characters and the 
text I've entered is saved onto a 
magnetic disk, as a defense against the 
gremlins that lurk in the shadows 
waiting to cause a system crash. (I am 
typing this first paragraph over a sec- 
ond time because of just such a gremlin 
attack in the middle of the previous 
sentence.) 

After completing the first draft, I'll 
go back over what I've written and do 
a little editing on it, smoothing rough 
edges and correcting spelling and punc- 
tuation. That will all be done from the 
Apple keyboard, of course, as I scroll 
through the text. At the same time, I'll 
make sure that the various special sym- 
bols which the typesetter will need are 
all in the right places, and that the 
overall format conforms to SoftSide's 
standard style. 

With final draft on disk, and backup 
disk safely tucked away, I'll then con- 
nect a long cable between my Apple 
and the Model I TRS-80® sitting on 
Alan Zett's desk nearby. His computer 
and mine have been on friendly terms 
lately, and have done a lot of talking to 
each other. We like to encourage that, 
so we give them things to talk about. 
Like editorials. His computer will open 
its buffer, mine will open its communi- 
cations port, and the text will go from 
Apple disk to Apple memory to TRS- 
80® memory to TRS-80® disk. 

Then I'll take that Model 1 disk 
(after immediately making a backup) 
over to the Model III, where I'll con- 
vert it to yet another disk storage for- 
mat (and make yet another backup). 
After a final reading to make sure that 
everything came out in the wash (and 
that I really did say what I thought I 
said), I'll dump the file to a printer. 
That's just so another editor can quick- 
ly read what 1 wrote, to see if it will 
pass standards of common decency 
and reasonable good sense. 

If it does, then one of the backup 
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copies of the finished disk gets walked 
into the next room and inserted in 
another Model III. With appropriate 
magic movements and incantations, 
the contents of the disk will be con- 
verted into yet another file form, and 
then transmitted through yet another 
cable to yet another machine: the 
typesetter. And after the talented 
people in yonder room get through 
punching keys on the typesetter, and 
developing the film that said wondrous 
machine spews forth, and pasting such 
developed film onto pieces of card- 
board — voila! a page of the 
December issue of SoftSide, ready to 
be sent to the printer. 

So what's the point? 

Well, part of the point is that ten 
(five?) years ago very few of us would 
have guessed that we'd have 
technology like this so readily 
available. Sorry, but I just can't get 
over those occasional flashes of "gee 
SoftSide 



whiz!" feeUngs about all this. We're 
living in a kind of magical time when 
computer technology is coming into its 
own, visibly developing and becoming 
more sophisticated month by month. 
Even those of us who weren't involved 
in the REALLY formative stages of the 
microcomputer revolution (let's see, 
how many months ago was that?) have 
a feeling that we're in on the ground 
level of something momentous. 

Another part of the point is the 
frustration involved in the incom- 
patibility of all these dumb machines. 
There are means available to make 
them talk to one another, but one has 
the feeling that the necessary patches, 
fixes, and jerry-rigged connections 
almost cancel out the potential advan- 
tages of machine interfacing. Not 
quite, but almost. Will there ever be 
some kind of magical device that will 
intelligently and automatically inter- 
face anything to anything? Fat chance. 
Then again, part of the problem is me, 
since I insist on using the Apple instead 
of walking eight feet over to the Model 
III, to do the typing there in the first 
place. (Often I do so, but it's in use 
right now. Besides, my desk chair is 
more comfortable, and that helps me 
meditate better — 1 need all the help I 
can get.) 

Finally, a third point, which will 
directly affect those of you who submit 
articles and programs to us to be con- 
sidered for publication. We've decided 
to computerize more of what we do (a 
radical idea, we freely admit), and will 
henceforth be storing all program 
documentation on disk rather than in 
file folders. We now require that all 
program documentation be submitted 
in machine-readable form, and will be 
increasing our payments for programs 
based on the quality of that documen- 
tation. In this issue you will find a sim- 
ple tape- and disk-compatible text 
editor for all three of our computer 
systems, for your use in submitting text 
to us. This will help us with the com- 
patibility problem as well as the paper 
overflow problem, so that anyone can 
both write and read media-based 
documentation with an absolute 
minimum of hardware and software. 

Computers will never take over the 

world, but I sure won't mind having 

them take over all that repetitive 

retyping. © 
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MICROPHILIA 

Dear SoftSide, 

1 have just finished reading Jon Voskuil's 
editorial on "Microphilia." I believe it was very 
well-written and right on the mark. 1 was a victim 
of this very serious problem and it was nobody's 
fault but my own. I think that all too many peo- 
ple abuse their computers by handing over all 
their free time and attention at the expense of 
their personal and family lives. 

Computers are wonderful and amazing and all 
kinds of wonderful things, but we, as people, 
could be even better if we could teach ourselves 
to handle both talking to computers and talking 
to people. Communication skills are low enough 
without finding ways to completely eliminate all 
personal contact with each other. 

We are the master and the computer is our 
tool. We still Uve in a world of people, not 
machines, and as such we should keep in touch 
with our human friends as well as our electronic 
ones. 

Thank you for your observations. I hope they 
reach the people who need it the most. 

Paul J. Cohen 
Beverly, MA 

HANDLE WITH CARE, THE SOFTWARE 

Dear SoftSide, 

Having visited several friends who also own 
computers, I realize that very few people really 
know how to take care of their investments. Hav- 
ing worked as a professional tape librarian for 
almost two years, I picked up quite a few "tricks 
of the trade" which I thought your readers might 
appreciate knowing. 

1 . Keep your disk drive doors and cassette lids 
closed when not in use. The magnetic heads at- 
tract dust and lead to faulty program loads and 
ruined data files. 

2. Keep cassettes in their boxes and diskettes in 
their sleeves when not in use. This cannot be 
stressed enough. Unless your area is hermetically 
sealed, there is dust everywhere. It usually (ac- 
cording to Murphy's Law) ends up on the 48K 
program of which you have no backup copy or 
that irrecoverable data file. 

3. Clean your disk drives and your cassette 
player regularly, with a commercially-prepared 
solution. This solution or cleaning disk or tape is 
relatively cheap compared to the cost of replac- 
ing the drive or the read/ write heads. 

3a. When cleaning, use only good quality 
swabs or lint-free cloth (not paper towels). Keep 
them in a zip-lock bag when not in use to keep 
dust away and never reuse them! Don't touch the 
cloth to the cleaning solution's bottle or dip the 
swabs into it. This contaminates it and further 
compounds your problems. 

3b. When using a cleaning cassette or disk, 
replace it according to manufacturer's direc- 
tions. They become imbedded with dirt, and 
could make your drive worse instead of better. 

4. Keep your cassettes and diskettes in boxes 
designed for that use; not lying loose in a drawer 
or lying exposed on a table. 

5. Dust your area regularly after you have 
finished for the night and after you have put 
everything away. Dusting doesn't pick up 100% 
of the dust around. It actually kicks some into 
the air which will later fall. This is the reason you 
only do it when done for the night. 

6. Don 't use your computer or store your tapes 
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or diskettes in very hot or very cold places, such 
as an attic or a basement. Optimum temperature 
is 70 degrees. 

7. Use only good quality tapes, not cheapos. 
These will destroy your read/write heads faster 
than normal and your recording quality will 
diminish in the process. The short-term savings 
will not be realized when you have to buy a new 
recorder every six months. 

Craig Tiano 
LaSalle College 

ROSES AND THORNS 

Dear SoftSide, 

I'd like to say that I think your magazine is one 
of the best of the computer magazines I've seen 
(if not THE BEST). Most magazines I've seen 
have pages and pages (about 300), which from a 
distance makes the $3 cover price look small 
compared to SoftSide'?, $3, but if examined, have 
about 9/10 of the magazine filled with adver- 
tisements. The programs and articles published 
are not worth but about five of the three hundred 
cents. Again, I'd like to say THANK YOU and 
keep up the very good work. 

Kevin C. McHugh 
Hinesville, GA 

Editor's Reply: Many thanks for your com- 
pliments. You've hit on an important point — we 
consider SoftSide to be a product in and of itself 
rather than an advertising medium justified by 
editorial copy. The trade-off we make to main- 
tain that attitude is asking our readers to pay a 
greater percentage of our production costs — 
thus our higher cover price. 

Dear SoftSide, 

Well, I guess that all good things must come to 
an end sometime! The notice has arrived that 
tells us our gift subscription to SoftSide is just 
about to come to its completion. All of us here at 
Folsom want to thank you for the year's worth 
of enjoyment and knowledge gained from 
reading and working with SoftSide magazine and 
its accompanying tape. It is a great combination 
and we will surely miss it. If we had the funds in 
our computer group, it would be the first 
publication that we would renew, but alas, our 
cupboard is bare! Anyway, we all wanted to 
thank you at SoftSide for your consideration and 
generosity. 

During the current school semester, our 
Education Department is conducting three 
classes in programming theory and design, and 
has a capacity enrollment of 30 students. Each of 
the three classes has a one-hour lab period each 
day, so you can see that our limited selection of 
computing units is kept very busy. We are hoping 
to increase the 30 students to 60 by the beginning 
of the next school semester as there are presently 
over 100 men on the waiting list to take the pro- 
gramming courses. We recently had a disk drive 
(5 1/4" floppy) donated to us for use with our 
TRS-80® Model I so now we have a 48K disk 
system to work with and are enjoying working 
with its new capabilities. With the tape and disk 
system and the 48K of RAM, many program- 
ming possibilities are open to us, and we are 
working hard to absorb and utilize our new- 
found computing power. 

Gottfried R. von Kronenberger 

Folsom State Prison 

Repressa, CA 

SoftSide 



Editor's Reply: It may be true that most good 
things come to an end, but not your subscription 
to SoftSide'. We have extended your cassette 
subscription for another year to encourage your 
superb program. Happy computing! 



Dear SoftSide, 

Congratulations on your consistently en- 
joyable and informative magazine. My Atari and 
I look forward to each issue. Unfortunately, my 
checkbook rises in revolt at the mention of buy- 
ing your cassette edition, so I do all the typing 
myself. Problems have appeared in the August 
issue for the games Battlefield and Quest 1. Bat- 
tlefield was corrected in your October issue, but 
Quest 1 was not. I have checked my typing and 
corrected those errors, but my debugging skill is 
not good enough to check the program itself ex- 
cept to correct Line 1031 to read MS = 
M1(RM)/10 so that the monsters attack the 
player. (The tipoff was that the original line was 
not accepted.) Other problems with Quest 1 are: 

1. The variables are not well-defined; page 26 
does not begin to list all the contortions the data 
undergoes, and makes debugging impossible for 
amateurs. 

2. In the wound routine, 1 allowed the 
character to be wounded. The wound value went 
by fives from 100 to minus 40 until 1 pressed a 
movement key, which stopped the subtraction. 

3. In the room routine, the room progression 
has not gone past two, after which it goes to zero 
and stays there. (There is no exit from room 
zero.) 

4. Passages (in the passage/intersection 
routine) are occasionally drawn away from the 
character, resulting in a monster and/or treasure 
being separated from a character by a wall. 1 
have found that magic arrows can breach a wall, 
but 1 don't think it was supposed to work that 
way. 

5. There is no room memory. On exiting from 
a room, you cannot go back and expect the room 
you just left to be the same. 

6. Defining "&" — the red block alluded to in 
the explanation never occurred. On my machine, 
the Quest is in blue and white. I did not type in 
lines 812-884 and 20018-20060 to save time and 
because these lines only had to do with "saved" 
programs. Did I chop off something essential? 

All in all, I think Quest 1 has the potential to 
be a great program. Alan J. Zett, normally one 
of your best people, must have had an off day. 
Again, thanks for putting out a magazine that 
saves us hundreds of dollars over buying soft- 
ware in retail outlets and giving us information 
on how to make better use of our machines. 

Mac Salfen 
Arlington, TX 

Author's Reply: In most cases, the problem is in 
a DATA line — in particular, line 112. Many 
people have mistaken the 9.9 (nine-point-nine) at 
the end of the line for a 9,9 (nine-comma-nine). 
To fix the program, retype the lines that you 
have changed and if you make sure there is a 9.9 
at the end of line 112, Quest 1 should run proper- 
ly. (The lines that you omitted have nothing to 
do with the problems you've been having.) If you 
still have problems after making the necessary 
corrections, I would appreciate it if you would let 
me know. See also "Bugs, Worms..." in this 
issue. (A.J.Z.) © 



TRS-80® PROGRAMMING HINTS 

To print a flashing "Press ENTER" centered 
horizontally on the current line, use the follow- 
ing (spaces inserted for legibility): 



2000 CU = PEEK(16416 ♦ PEEK(16417i «2S6 +32! 
PRINT TflB(25) "<PRESS ENTER)"; 

2001 IF INKEY* = CHRI(13) RETURN ELBE FDR X 
= 1 TO 70! NEUi IF PEEK(CU) = 32 PRINT CU 
AND 1023, "ENTER"i! GOTO 2001 ELSE PRINT CU 
AND 1023, " "!! GOTO 2001 



Locations 16416 and 16417 contain the current 
cursor address. 

The expression CU AND 1023 in the above ex- 
ample is used to convert from video memory ad- 
dresses to PRINT @ addresses. (You can also go 
in the opposite direction: to convert a PRINT @ 
address to a video memory address, use CU = 
PA -I- 15360, where PA is the PRINT @ loca- 
tion, and CU is the video memory address. 

(Editor's Comment: These seem technically 
correct, but advocate coding practices which 
make programs hard to understand. However 
they do save bytes when memory is crucial.) 

You don't need a semicolon after the TAB(25) 
in line 2000, and you don't need any THENs in 
the IF statements. Which leads me up to the next 
programming hint: When do you need a 
semicolon in a PRINT, or a THEN in an IF? 
You only need THENs when there would be am- 
biguity without them; and you only need 
semicolons when necessary to eliminate ambigui- 
ty, in a PRINT USING, and at the end of a 
PRINT list to inhibit a carriage return. For ex- 
ample: 

PRINT "Some text"; A$; B; "Some more text" 

should be written as: 

PRINT "Some text"A$B"Some more text" 
(Note: Spaces added for readability.) 

Similarly, you never need a THEN after a right 
parenthesis or a type-delimiter ($, #, !, or %). A 
THEN is only required if the controlling expres- 
sion in an IF ends in a quote, or if there would be 
ambiguity as to where the conditional expression 
ended and the first controlled statement began; 
however, it is almost always possible to rearrange 
the expression to make it end in a character 
which never needs a THEN. For example: 

IF ABS (A) = B THEN C = D-I-1 

INPUT "Play again (Y/N)"; A$ = "Y" THEN 

RUN ELSE END 

can be rewritten as: 

IF B = ABS (A) C = D-I-1 

INPUT . . . : IF " Y" = A$ RUN ELSE END 

By reversing the order of the terms in the 
Boolean expression, we eliminated the trailing 
quote, thus eliminating the need for the THEN 
— thereby saving one byte of memory, not four. 
It is stored internally as CHR$(202). In fact, you 
don't really need the THEN in an implied GOTO 
(i.e. IF A$ = B$ 1000 is just as valid as IF A$ = B$ 
THEN 1000). 



If the controlling expression ends in a number, 
a THEN is needed only if the first controlled 
statement is an implied GOTO, or if it is an 
assignment statement beginning with a D or an 
E. For instance: 

IF X > THEN A = B ELSE IF SIN(X) < 
THEN 1000 

would work just as well as: 

IF X > A = B ELSE IF > SIN(X) 1000 

There are actually many other cases where a 
THEN can be eliminated. If you aren't sure, try 
leaving it out, and see if the result is two variable 
names being run together. If not, you can prob- 
ably do without the THEN! 

Sam Hills 
New Orleans, LA 



APPLE ENHANCEMENT 

As a subscriber to SoftSide magazine, I think 
it is tops. In reference to the Collision game by 
Mark Pelczarski (November, 1980), I think the 
game is really enjoyable. The addition which 
Lynn Leopard of Chillicothe, MO added to the 
game (August, 1981) to keep a short sequential 
text file called "high" that holds the scores and 
names of the top ten scorers makes this game 
even more interesting. Lines 200 and 205 which 
were added are correct but after playing the game 
several times, I found it did not record the scores 
every time. I found it needed three more lines 
changed. The next three lines should be changed 
to read as follows: 



450 !F K=n m K='i'i THEN 900 
650 IF )(D=XY AND YE^YY THEN 900 
652 IF XD^XY AND YD=YY THEN 900 

After you make these changes, I find it records 
the top ten scores every time. I would appreciate 
it if you would pass this information along. 
Thank you. 

Nathan Calloway 
Kingsport, TN 



TRS-80® TAPE PROBLEMS 

The TRS-80® tape loading problems men- 
tioned in R. E. Noble's letter in the October issue 
of SoftSide seem to be operator error. Level II 
BASIC will search the tape for a one-letter file or 
program. Thus a search for "program 1" is not 
valid. The computer will very likely try to find 
program "p". If there is no such file or program, 
nothing will load. Disk BASIC does not have 
search and will only CLOAD the next program. 

TRS-80® does have a loading problem which 
was very hard to find. It is casually mentioned in 
"Special Notes" on page iii of my Level II 
manual. To load a program, the program must 
be positioned on a blank spot ahead of the pro- 
gram leader. Any blip, click or noise ahead of the 
program leader will cause the TRS-80® to "lock 

SoftSide 



up" without indicating when or why. The 
volume "may" be adjusted low enough that the 
computer will not see the blip and still read data. 
This is not easy. 

I found the "blips" by monitoring the cassette 
output with a scope while I was trying to find a 
"magic" volume setting. The computer does not 
lock up when it sees the blip but it will lock up 
when it gets to the leader. The volume setting is 
not critical if there is no blip. 

The tape must be positioned at a blank spot 
ahead of the program leader. If the computer 
sees any blip ahead of the leader, it will lock up. 
The cassette keeps running so it is hard to know 
when (or if) the TRS-80® has locked up. 

To load problem tapes: 

1 . Listen for leader. (I use Radio Shack Mini 
Amp plugged into the phone jack with a Y-plug 
or unplug the black plug from the phone jack.) 
The leader is the "pure" tone before the hash of 
data. 

2. Stop tape and note index # (in case you miss 
in step 3). 

3. Rewind slightly — until just ahead of pro- 
gram leader. 

4. Reset computer, replace black plug if 
pulled. 

5. CLOAD 

I can hear the cassette output with my setup so 
I know if there was a blip ahead of the leader 
when I attempted to load the program. 

I plug the scope into the Mini Amp when I 
want to compare outputs. This way I can either 
hear or see the signal. 

I hope that this will help solve some of the 
TRS-80® tape problems. I seldom have to touch 
the volume now that I know the problem. 

Walter H. Peaslee 
Elizabeth, IL 



HI-RES GRAPHICS 

I read with great interest the article "Mixed 
Text and Graphics in HGR2" by Jon Voskuil 
(September, 1981). I ran into the same sort of 
problem early on in my use of the Hi-Res 
graphics on my Apple, namely a War (card 
game) program that I wrote. Jon obviously put a 
lot of work into his solution and is to be 
commended. 

My problem with the War program, was the 
same as his with Hangman. There are, however, 
two better ways to solve this problem. In both 
our efforts, we blew our program space with all 
those "scores of HPLOTS". 

The best way to solve the problem would have 
been to eliminate all the HPLOT statements and 
create a series of SHAPE tables for the various 
parts of the graphics display. These could have 
been placed at the top of his 32K and the pro- 
gram would have functioned on page 1, without 
the need for any special routines. 

Shape tables look scary at first, but after 
you've done a few, they're a walk in the park. 

There is, however, a second way to solve the 
"Mixed Text and Graphics (problem) in 
HGR2' ' , in the event that a program is really too 
large. It's simple, and once done can be forgot- 
ten, as it will always be there, ready to use. 

I don't claim credit for the idea, as it came 
directly from Apple, and was published by their 
engineering department on May 15, 1979. What 



continued on page 9 
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'Tis the season to be jolly! Sit down 
at your computer and take a break 
from the hectic holidays with the u- 
nique programs in this issue of Soft- 
Side. We've combined the serious and 
the whimsical for your edification and 
enjoyment. 

C William Morris and John Cope, 
authors of many past SoftSide 
features, have done it again and the 
results will wow you! Titan is our cover 
feature this month and the illustration 
only hints at the excitement awaiting 
you on the surface of Titan, the frozen 
moon of Saturn. At least you'll be 
guaranteed a white Christmas. Just 
hope you can avoid freezing! 

C The typewriter is becoming an ob- 
solete piece of equipment as word 
processors infiltrate the home and of- 
fice environment. Jon Voskuil initiates 
a series on word processor develop- 
ment with MicroText 1.0. This 
"developing word processor" will not 
only help you understand how word 
processors are constructed but aid all 
of you prospective authors in the 
preparation of documentation and ar- 
ticles as well. Jon promises printer 
routines in next month's installment. 

C At long last, we are proud to pre- 
sent the complete Developing Database 
for the Atari. Few programs have been 
as popular as this series. New 
developments have taken place in the 
use of the Atari since the series was 



first published and this version has 
been updated (and debugged) to fully 
utilize the computer's potential. 

C Have you ever wondered what it 
would be like to fly a jet in the dark, 
depending only on your instrumen- 
tation? Wonder no longer as you may 
now experience flight (or the next best 
thing to it) with Aircraft Commander 
on your Apple. 

C Take a close look at Y-Wing in our 
K-Byters for this month. This is an ex- 
ample of "total documentation" as we 
hope to include in some of the future 
SoftSide programs. You'll be able to 
watch Y-Wing grow over the next few 
months as more and more features will 
be published. 

C Plus — Design Master for the 
Atari, Electronics Assistant for the 
TRS-80® , The Sensuous Programmer, 
My Side of the Page, reviews, hints, 
and informative articles. 

Happy Holidays to all of our 
readers. 1981 has been a year of change 
and growth for SoftSide and we'd like 
to thank all of you for your help. May 
peace, happiness and prosperity be 
yours in 1982! 

C Special Note: Starting with the 
November issue, all TRS-80® DV pro- 
grams now use DOSPLUS. Some of 
the commands are different with this 
DOS, i.e., to return to DOS from 
BASIC, use CMD instead of CMD"S. 




REWARD! 

TRANSLATION 

APPEAL 

SoftSide will give a $100 soft- 
ware certificate to the author of 
the best translation of a past 
SoftSide feature program. Each 
month we will publish at least one 
of these translations. Your port- 
folio will be enhanced to say 
nothing of your software library! 

We will accept entries for all 
past SoftSide programs at any 
time. However, we suggest you 
submit translations of recent pro- 
grams within three months of 
their original publication date for 
maximum consideration. Entries 
must be submitted on tape or 
disk, accompanied by complete 
documentation. Please enclose a 
self-addressed stamped envelope 
if you would like your entry 
returned. 

The quality of each translation 
will be judged by the SoftSide 
editorial staff and prizes will be 
awarded at the time of publi- 
cation. Q 



ONE LINERS 

Scattered throughout the 
pages of this issue, you will 
find some very short programs 
called "One Liners". You can 
contribute to this department 
by following three rules and 
sending your contribution to: 

TRS-80® 
Atari (pick one) 
Apple 

ONE LINERS 

c/o SoftSide Magazine 

6 South Street 

Milford, New Hampshire 03055 

RULES: 

1) The programs must be 
written as a single line of 
BASIC. 

2) The program must be 
self-contained. Make no 
assumptions about 
DIMensions, available string 
space, current graphics mode, 
etc. 

3) The program can be of 
any type: graphics, sound, text, 
utility, etc. © 
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Hints & 
Enhancements 

continued from page "7 

it involves is a simple pin modification to one of 
the IC chips. Anyone can do it, and it only takes 
a minute or two. Once completed, you have your 
choice of: 1. HGR (with all normal functions), 2. 
HGR2 (with normal full screen graphics), or 3. 
HGR2:POKE- 1 6301,0 (with the exact functions 
as HGR). 

Here's what to do: 

1. Turn off the Apple power supply. I always 
pull the plug to be sure. 

2. Carefully remove IC number C12. It's in the 
same row as the lowermost row of RAM chips, 
the second from the right. It's a little longer than 
the other three in that row and bears the number 
74LS154. 

3. Holding the chip so that the notch is away 
from you, bend pins 2 and 5 straight out from 
the chip so that they won't go back in the socket. 
Pin 2 is the second pin from the notched end, on 
the left side, and pin 5 is the fifth pin from the 
notch, on the left side. 

4. Add a small guage wire from pin 2 to pin 16. 
Pin 16 is the first pin from the notch on the right 
side. 

5. Add a small guage wire from pin 5 to pin 8. 
Pin 8 is the last pin from the notch on the left 
side. 

Be sure that the wires touch only the refer- 
enced pins, and replace the chip in your Apple. 
Be sure pins 2 and 5 don't touch anything else 
when reinstalled. 

There you have it! Now HGR2:POKE 
-16301,0 is the exact equivalent of HGR, except 
that now you've got another 8K of memory to 
play around with before you need to worry about 
interfacing with Hi-Res graphics. 

One of your readers seemed to feel there were 
lots of problems with your Galaxia program. 
Frankly, I entered it just as published, and it ran 
perfectly. Apparently the errors were in his 
listing, not yours. 

Robert R. Devine 
Adona, AR 

BATS AND "YOU" 

My son and I really enjoy playing the Bals 
game you published in SoftSide (June, 1981). We 
were rather annoyed with the method of input to 
move the "YOU". I therefore took the liberty to 
slightly change a few lines of your program to 
those listed below. 
2000 DELETE 
2002 CHANGE 100 TO 50 
2008 CHANGE "K" TO "Z" 
Add the following lines: 

2031 IF Qi="Z' THEN D=L!GOTO 2032 ELSE Q=Q 

2032 m L=B! TO BEGINNING OF LINE ftS PRINTED 

These slight changes have the effect of keeping 
"YOU" moving in the direction of the last key 
pushed until another key is chosen or "K" is 
pushed to halt movement. 

I thought you might be interested in trying 
these changes and seeing whether you find the 
game somewhat faster and involving as we did. 

Thank you for sharing your game with us. 1 
trust you will keep up the good work. 
Note: As we own a Model 111, we also changed 
the "YOU" to CHR$(253) which is the "little 
man" character. 

David Humphrey 
Cranbrook, BC, Canada 



APPLE PRINTER MODIFICATION 

Let me congratulate SoftSide and Mr. D. W. 
Durkee on his fabulous program, Word-Search 
Puzzle Generator (June, 1981). Boy, they're so 
good that I have to cheat by looking at the 
answer sheet to finish any of the puzzles I try! 
My cheers to Mr. Durkee. However, when the 
time comes for the printer to print the word list, 
it prints only one word per line, and if you have 
60 or so words, a lot of paper is wasted. Here is a 
routine which will get the printer to print out five 
words per line (Apple only). 

740 FOR I =1 TO Z -1 STEP 5: PRINT 
W»(I),W»(I+1), W»(I+2), W»(I+3), 
W»(I+4): NEXT I 



Mr, 



C. G. Burrow 
Niue Island 



ATARI ENHANCEMENT 



When I bought my Atari six months ago, I had 
previously had experience only with TRS-80® 
BASIC and Z80 machine code. (I've owned an 
TRS-80® for three years now.) So at the time I 
wrote Character Generator and the Quest I 
translation 1 was only familiar with Atari 
BASIC. 

Since then I've taken the time to learn 6502 
machine code, in the interest of improving the 
overall quality of my Atari and Apple programs. 
Presented below are two program modifications 
for speeding up the down-loading of the 
character set. The Character Generator improve- 
ment is the same one included in the cassette and 
disk versions for October. It now writes the 
faster loading routine with the character set. The 
Quest I mod is being published for the first time. 

In the lines below, the variable X$ or XFR$ 
consists of a string of character codes ranging 
from to 255. In order to get these codes, use the 
following chart. In this chart, a character that is 
underlined means an inverse letter (use the Atari 
logo key), and a character that is overlined 
means a control character (use the CTRL key). 



XFRS = "h), EKEM).EN'yo jXiAEL 
IMQKHPyfLfNifoNldPm" " 

Quest I changes: 
30020 DIM XFR$(3B):XFR»=" 

FR$)): RESTORE 30050 



:2=USR(ADR()( 



Character Generator changes: 

650 PRINT 13; "32010 DIM )(FR$(38):XFR$= 
»;CHR$(34);" 

".iCHR$(34) 
660 PRINT »3; "32020 Z=USR(ADR(KFR$)):R 
ESTORE 32100" 

10030 ? "INITIALIZINB ..." 
10040 DIM XFR$<38) 
10050 XFR»=" 

H 

10060 Z=USR(ADR(XFR«)):FOR Z=0 TO 127 



Protect 

Your 

Investment! 




Alan J. Zett 
SoftSide © 



With 
Vinyl Binders 

Collectors! Protect your Soft- 
Side back issues, Volumes I 
and II, or any publication of 
your choice, with these 
durable wood-grain vinyl 
binders with inside pocket 
and clear spine sleeve for 
easy identification. Holds and 
protects 12 back issues. A 
regular $4.95 value. SALE 
priced at $3.95*. FREE (while 
supply lasts) with the pur- 
chase of Volume 1 or II (12 issue 
collection of SoftSide)- 



SMALL $3.95 

8V2 X 11 $7.95 




it5ia 
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by John T. Phillipp, M.D. 

Although I said in my articles on the 
use of VARPTR (July, August and 
September SoftSide issues) that strings 
that have been packed cannot be 
EDITed, since they turn into garbage, 
it is becoming common knowledge that 
they CAN be EDITed after packing. 
The "secret" is to replace the first 
"quote" — CHR$(34) — of the string 
with an asterisk — CHR$(42). This has 
the effect of "de-tokenizing" the line. 
That is, the line now has all the com- 
mand words in their fully-written-out 
forms, not as the "token" codes. In 
that form, the line can be EDITed. The 
de-tokenizing is done (for line #20 con- 
taining A$, for example) by typing the 
following in the Command Mode (no 
line numbers): 



I = VARPTR (A$): J = PEEK 

(H-1) + 256 * PEEK (\ + 2) 

[ENTER] 

POKE J-1,42 [ENTER] 



The first line uses VARPTR to find 
the memory location of the first 
character of the text of the string. The 
second line changes the memory lo- 
cation before that (the first "quote") 
to an asterisk. Write down the value of 
]-l (PRINT J-1) somewhere. EDITing 
a line sets all variables to "0" and 
you'll need J-1 later. The line contain- 
ing A$ may now be EDITed. However, 
the whole command word representing 
any "token" number you want to add 
or change must be INSERTed or 
DELETEd, not the number itself. For 
example, suppose you had packed A$ 
with three CHR$(175)'s. Token "175" 
represents the command word 
"LPRINT", so when you LISTed the 
string, you would see: 



20 A$ = 
LPRINT' 



'LPRINTLPRINT 



This is the same as A$ = 
CHR$(175)-(-CHR$(175)-hCHR$ 
(175). The altered string (after the 
asterisk was POKEd) would look like: 
10 December 1981 



20 A$ = *LPRINTLPRINTLPRINT" 



If you want to change the last 
CHR$(175) to a CHR$(191), you 
would use a table of "tokens," and 
find that 191 expands to "USING". 
You would DELETE the word 
"LPRINT" from the string in the 
EDIT mode, and INSERT the word 
"USING". Your string would then 
look like this: 



20 A$ = *LPRINTLPRINTUSING" 



This is the same as A$ = 
CHR$(175) + CHR$(175)-hCHR$ 
(191). The final step, after EDITing, is 
to replace the asterisk with the original 
"quote." This will "re-tokenize" the 
line (convert all the command words 
back to their "tokens"). In the Com- 
mand Mode: 



POKE the value you wrote down for 
J-1, 34 [ENTER] 



Congratulations, you've just 
EDITed a packed string . . . and the 
string has survived. 

Of course, it's a pain in the neck 
looking for a table of which "token" 
stands for which command word, so I 
wrote the following "one liner". 
When RUN, it prints a list of all the 
graphic character values — 128 to 191 
— and the command words they stand 
for. Just the thing to refer to when 
EDITing packed strings . . . but you'll 
have to hit BREAK to get out of it!! 



1 CLS:L = 128:FORA = 5712TO 
5982:IFG = OTHENG = LPRINT 
L;"= ";CHR$(PEEK(A)-128);: 
NEXTA:ELSEIFPEEK(A)>90 
THENL = L + LPRINT" ",L; 
" = " ; CHR$(PEEK(A)- 1 28) ; : 
NEXTA:ELSEPRINTCHR$ 
(PEEK(A));:NEXTA:FORS = 
0TOlSTEP0:NEXTS © 

SoftSide 



ATTENTION 
AUTHORS 

SoftSide Publications is actively seeking 
programs, article and review submissions 
for the TRS-80®, Apple and Atari home 
computers. This is a chance for program- 
mers as well as users to make some money 
to help pay for the "computer addiction" 
and get their efforts out where they can be 
appreciated. 

Programs — SoftSide has always been 
the leader in the field of BASIC software 
and BASIC remains our specialty. 
However, with the advent of Disk Version 
(DV), we can now also offer an outlet for 
Machine Language and multiple language 
programs which do not lend themselves to 
printed versions. Games, utilities and 
educational software, as well as any other 
applications for the home computer user 
are preferred, although we will consider vir- 
tually any type of program. Hybrid mixes 
of articles and programs are also welcomed. 

When submitting a program, please be 
sure to include full documentation of 
subroutines and a list of variables, as well as 
a brief article describing the program. 

Reviews — Well written, informed 
reviews of all software for the systems we 
cover are a regular feature of SoftSide. 
Reviewers should take into consideration all 
aspects of a particular software package, 
from speed of execution to programming 
creativity to the estimated length of time 
that the product will hold the customer's in- 
terest. 

Articles — We welcome article submis- 
sions of all types, but prefer those 
specifically geared to the home computer 
market. We give our readers information as 
a first priority, but vary our content to in- 
clude some humor and commentary. 

All text, including documentation and 
descriptive articles for programs should be 
typewritten and double-spaced. Extra 
monetary consideration will be given to ar- 
ticles and reviews submitted on machine- 
readable media (Scripsit, Super-Text II, 
etc.). Programs should be submitted on a 
good cassette or disk. TRS-80® BASIC 
programs should funcdon under both Level 
II and Disk BASIC. 

Send to: 

SoftSide Publications 

SUBIVIISSIONS DEPARTMENT 

6 South Street 

Milford, NH 03055 

We regret that due to the volume we 
receive, we are unable to return submis- 
sions. 

Be sure to send for our FREE Author's 
Guide. It further outlines the specifics of 
our submission procedure. 

TRS-80 is a registered trademark of Tandy corporation. 




by Randal L. Kottwitz 

Happy Holidays! They truly are 
happy ones here at SoftSide as some of 
the problems I spoke of last month are 
being resolved. We are now in full 
operation with our fulfillment service 
and the difficulties some of you have 
been experiencing with your subscrip- 
tions are coming to an end. We've 
made some improvements in our 
duplication services (effecting both ef- 
ficiency and quality) and those of you 
receiving tapes and disks should be 
much happier with our services. 
Thanks for your patience. 

Envyrn^'^^ — Some Comments 

Our October issue has caused much 
comment. First, an omission: The En- 
vyrn program requires a full 48K TRS- 
80® with disk. There are modifications 
for a 32K version in this issue. That is 
as small as we will be able to pare down 
the program. We will not be able to 
make it tape-compatible as the MID$ 
command is handled in a different 
manner. There's no doubt that Envyrn 
is "RAM hungry" and in order to fully 
utilize its capabilities you need 48K. 

There is an awkward element in the 
tile-editing function of the current En- 
vyrn (something akin to chiseling). The 
commercial TRS-80® Envyrn is 
scheduled to be shipped in January. 
We now have a tile-editing function 
which operates more like a paintbrush. 
What was tedious concentration in the 
old is creative enjoyment in the new. 

Those of you operating on the Atari 
and Apple have reason to be encour- 
aged. We have no definite release date 
for the Apple and Atari Envyrn, but 
the project is proceeding at a rapid 
pace. We are especially impressed by 
the Atari's ability to handle the meat of 
Envyrn — graphics. The result will 
most definitely be worth your wait. 

Users' Groups 

You may have already noticed the 
bind-in card in this issue asking for in- 
formation concerning computer clubs 
and users' groups. We are in the proc- 
ess of compiling such listings for year- 
ly publication of a directory. We are 
considering combining the directory 
with a special issue devoted to soft- 
ware, ^'programming hints and articles 



cooperatively produced by clubs and 
users' groups. I'm interested in your 
input on this matter. One of the main 
determinants in the production of such 
an issue will be the availability of the 
"raw material." If you or members of 
your organization are producing soft- 
ware or articles on a cooperative basis, 
please get the details in the mail to me 
soon so a decision may be reached on 
further project development. 

Multi-System Format 

In October, SoftSide ceased 
publishing letters promoting name- 
calling from one system to another. 
However, the letters concerning our 
multi-system format continue to pour 
in and some important points are being 
made. When I purchased my first com- 
puter, I was told I'd be a fool if I were 
to think this was my last computer and 
not to be surprised if I owned more 
than one at a time. I'm now convinced 
the comment was correct. As our world 
becomes more and more "terminal 
oriented," familiarity with more than 
one computer will become an impor- 
tant skill. SoftSide has a goal of en- 
couraging cooperation and exchange 
of information among computerists 
and expanding the computer literacy of 
our readers. We received one letter 
which best exemplifies the attitudes we 
take toward different machines. The 
writer, Dr. Krell, owns a TRS-80® and 
an Atari 800, however, his comments 
could as easily apply to the Apple. 

Dear SoftSide, 

In comparison, I like both of my machines for 
different functions. The speed and instruction set 
of the Z80 CPU in the TRS-80® mal<e it ideal for 
performing scientific and database computations 
and for uploading and downloading programs 
and data to mainframe computers. However, 
programming graphics on the Atari is quite ad- 
dictive. As an owner of both machines, 1 resent 
the blatant ignorance with which people put 
down machines which they do not own. The 
home computer market is quite expansive and 
has room for several types of computers. So let's 
quit the name-calling and start to be open 
minded about the differing good and bad 
qualities of each machine as a function of its in- 
tended use. 

Bruce E. Krell, Ph.D. 

Thanks, Bruce. Merry Christmas 
and Happy Hacking! 

SoftSide 



K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Some time ago SoftSide began in- 
viting its readers to submit "One 
Liners" — self-contained single-line 
programs for the TRS-80®, Apple, or 
Atari which would provide a con- 
tinuously changing graphics display. 
The response has been excellent, and 
we're still looking for more submis- 
sions. 

Now we have a new challenge for 
you as well: "K-Byters." A K-Byter 
is a BASIC program which fits into 
IK (1024) bytes of program memory. 
There aren't any restrictions on the 
nature of the program, other than its 
size. It can be a graphics display, a 
game, a mini-adventure, or anything 
your imagination and programming 
skills can create. 

Note that the program does not 
have to RUN in IK of memory; it can 
use as much RAM for arrays, strings, 
graphics mapping, etc., as you need. 
We'd prefer that it be able to run in a 
16K system, but this is not an ab- 
solute limit. 

Here then are the official rules: 

1 . The program must be written for 
the Apple, TRS-80®, or Atari, entire- 
ly in BASIC (although it may create 
and call Machine Language 
routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be submitted 
on tape or disk, accompanied by your 
name, address, phone number, and a 
brief written description of its oper- 
ation. 

4. The tape or disk will be returned 
only if accompanied by a self- 
addressed envelope with adequate 
postage AFFIXED (do not send 
money). 

5. Winners will have their pro- 
grams published in SoftSide and will 
receive a $10 software certificate for 
their programming excellence! 

Send submissions to: 

K-Byters, c/o SoftSide 
6 South Street 
Milford, NH 03055 
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Your Adventures 




June Adventure of the Month 
Arabian Adventure 

As Sinbad, the mightiest sailor in an- 
cient Arabia, your mission is to rescue 
Princess Jasmine from the clutches of 
the Wizard of Darl<ness. You will cross 
the Seven Seas to the deadly Cyclops 
IViountain, and do battle with 
skeletons, a one-eyed beast, a hairy 
tarantula and more monsters who try 
to thwart your noble pursuit. 



July Adventure of the Month 
Alien Adventure 

You are the sole survivor of a crew 
on a mission to deliver a cargo of oil to 
Earth. A crash landing has left you 
stranded on a small planet, harshly 
alien but rich in lead, gold and 
platinum. You must find provisions and 
a means of leaving the planet. But 
beware of the THING that massacred 
your crew! 



August Adventure of the Month 
Treasure Island Adventure 

You are a hardy adventurer in search 
of fame, fortune, and whatever else you 
can get. You find yourself on an island 
where there Is rumor of pirate's 
treasure. But watch out for the evil 
magician and the underground torture 
chamber! You may end up in a spot 
where all roads coming into it are pav- 
ed with good Intentions. . . 
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September Adventure of the Month 
Jack The Ripper Adventure 

Jack the Ripper is running rampant 
in London and you must stop him! 
Scotland Yard demands that you take 
action, and the only answer is to set 
yourseU up as a decoy. Be careful how 
you plan your costume, or dear Jack 
will laugh hysterically and leave you in 
the dust! 



October Adventure of the Month 
Crime Adventure 

Test your skills as a detective by sif- 
ting through hundreds of clues. You 
may have to become the new Sherlock 
Holmes to solve this one! Look for the 
strange, but don't overlook the ob- 
vious, as you try to find Mrs. Fenwick 
and return her to where she belongs. 



November Adventure of the Month 

Around the World in Eighty Days 

Adventure 

Try to repeat the feat of the classic 
novel, complete with a balloon and 
other exciting features of the original 
adventure. Are you ready to take the 
challenge? Bon voyage! 



will start here 




December Adventure of the Month 
Black Hole Adventure 

The crew of an interstellar craft discovers the long-lost 
Deep-Space Probe One, the Cygnus, at the edge of the 
vortex surrounding an immense black hole. See if you can 
foil the plans of Dr. Hans Reinhardt. 



Subscribe to Adventure 
of the Month 



How would you like to go back in time to 
19th century London to match wits with 
Jack the Ripper? Out into space to brave 
the swirling vortex of a black hole? Into the 
depths of the ocean, or on a quest to 
rescue a beautiful princess from the 
clutches of evil monsters? 

You never know where SoftSide's 
Adventure of the Month might take you. But 
you can be sure that each month you will 
experience new delights and new 
challenges as you receive an original 
adventure on tape or disk, ready to load 
into your computer. 

The cost? A six-month membership is 
just $27 for the tape ($4.50 per adventure) 
or $45 for the disk ($7.50 per adventure). If 
you're not sure that you can take six full 
months of excitement, you can order a 
single tape for $6 or a disk for $9. Or, if 
you're especially adventuresome, we're 
offering two disks, each packed with three 
great adventures, for only $24 per disk. 

Please use the coupon below (or the 
bind-in card in this issue) to order. 



Adventure of the Month 

6 South Street, Milford NH 03055 



'~\ 



Yes, I'm ready to start i Send me Adventures 

■ Six month subscription: 

D Cassette ($27) 
D Disk ($45) 

■ Individual adventures (please specify) 



L. 



D Cassette ($6) 
D Disk ($9) 
■ Three-adventures on one super disk ($24 each): 

D Arabian, Alien, & Treasure Island Adventure 
n Jack the Ripper, Crime & Around the World Adventure 
Please specify which computer: 

D Apple® (req. 24K for tape, 32K for disk) 
n Atari® (req. 32K for tape, 40K for disk) 
D TRS-80™ (req. 16K for tape, 32K for disk) 



-Zip- 



Name 

Address 

City/State 

n Payment enclosed 

D MasterCard D VISA Name of Cardholder. 

MC#andlnterbank#/VIS# 

Exp. Date 



.Signature. 



Prices subject to ctiange without notice. Apple, Atari and TRS-80 are registered 
trademarks of Ttie Apple Computer Company, Warner Communications and Tlie Tandy 
Corporation respectively. 
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by "J" 

MEET ME AT EIGHT 

In the past few weeks I have actually 
received three letters. This surprises me 
somewhat, since deep down inside I 
strongly suspect that no one is out 
there. Oh, they tell me that some 
20,000 copies of this magazine get 
distributed all over creation, but I 
usually just assume that they're pulling 
my leg. I'm not even sure that the let- 
ters aren't simply part of a conspiracy 
to convince me that they're not lying. 
Despite these solipsistic tendencies, 
though, I shall take a few lines to re- 
spond to those who have written 
(whether they be real or chimerical). 

Two of the letters kindly called my 
attention to the fact that the Apple 
stores the line number in which an er- 
ror occurs in memory locations 
218-219. (In the September column I 
had confessed my ignorance of these 
addresses.) The line number is given by 
the quantity, PEEK(218) + PEEK 
(219)*256. Although one of my infor- 
mants claims that this infor- 
mation is in plain black-and-white on 
page 135 of the Applesoft Reference 
Manual, I was unable to verify that 
assertion. It seems that the bottom 
quarter of that page, including the bold 
heading concerning ERROR MES- 
SAGES, has been completely 
obliterated from my copy . . . 

The third letter was more emotional. 
You may recall from the September 
column (vain hope!) "J's Theorem," 
"All computer users are idiots;" and 
"J's Corollary," "Ail computer pro- 
grammers who don't believe that all 
computer users are idiots, are greater 
idiots." These shocking assertions in- 
troduced a discussion on idiot- 
proofing programs: writing programs 
so that user errors would not cause the 
program to crash in an ungracious 
way. They also provoked a response 
from one reader which deserves re- 
printing in part: 

"May I offer you Hall's Law of 
Computer Journalism: The more small 
systems an author pretends to be 
knowledgeable about, the more likely 
is his advice to be wholly without 
redeeming practical merit. 

"J's Corollary: What does it take to 
know an idiot? 

"... Atari owners are given nonsen- 
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sical and wasteful advice on protecting 
programs from unwanted INPUT 
responses. The Atari is made to look 
like an incompetently designed system 
with the suggested error-checking 
code . . . 

"Input integrity can be accom- 
plished in several simple ways on the 
Atari. Where the user response will be 
one digit or letter, a GET command is 
error-free, and the response can easily 
be checked against all valid entries. 
Where the numerical input may be 
multi-digit or negative, a TRAP com- 
mand prior to the INPUT statement 
SoftSide 



which leads to a PRINT statement tell- 
ing the user his input was not a valid 
response followed by a loop back to 
the TRAP will avoid any problems 
where non-numeric characters are 
entered to an arithmetic variable. Need 
I add that TRAPs so set can and 
should be cancelled once the response 
passes the test? 

"As for strings being too long, the 
Atari allows for limiting the length of a 
string by its unique DIM technique of 
defining the maximum length of the 
string. If you want names of ten 
characters or less, you need only pro- 
gram DIM NAME$(10). Extra 
characters will automatically be ig- 
nored. 

"While I am being critical, the ex- 
pression ASC(A$,1,1) would cause an 
error on the Atari. The proper syntax is 
ASC(A$(1,1)). 

"As a designer of programs for 
amateur users, I am well aware of the 
need for user-friendly and error- 
trapped code. The reason is not, as J 
says, because computer users are 
idiots, but because computers are 
idiots . . . 

". . .As an Atari owner and pro- 
grammer, I am tired of seeing implicit 
criticisms of the Atari appearing in ar- 
ticles authored by people who are hung 
up on their love for the TRS-80® or 
Apple." 

Mr. Hall makes several valid points. 
The most obvious one is that it really is 
the computer and not the user who 
wins the contest for greater idiot. (On 
the other hand, who designed the infer- 
nal machine??) The next most obvious 
one is that ASC(A$(1,1)) is indeed the 
correct syntax. (Sorry about that.) And 
the most helpful one to me was the 
point about DIMensioning a string to 
the maximum desired length in order to 
truncate unwanted characters. I had 
suggested using a statement such as IF 
LEN(NAME$) > 10 THEN NAMES = 
NAME$(1,10) following the input of 
the name. Mr. Hall's suggestion is cer- 
tainly simpler and more elegant, and 
deserves passing along as a program- 
ming hint. 

On the other hand, the matter of 
trapping bad input is still open to some 
debate in my mind. Which is simpler 



and more elegant: to test input with a 
statement such as the one I suggested 
(IF A >57 OR (A< 48 AND A <> 46 
AND A <> 45 AND A < > 43) THEN 
100), or to use a TRAP statement with 
accompanying error-handling routine, 
associated PRINT statements, a loop 
back to the INPUT statement, and 
cancellation of the TRAP? Both are 
valid programming methods, and I 
wouldn't want to be so dogmatic about 
which is preferable. 

Finally, on the matter of implicit 
criticisms of the Atari, let me make one 
thing explicit. While Atari BASIC has 
many superior features, especially its 
sound and graphics enhancements, it is 
weaker and less versatile in other areas. 
The way in which it handles strings, in 
particular, is usually more of a frus- 
tration than an asset. Not always, but 
usually. A program originally written 
in another dialect of BASIC almost in- 
variably requires more coding when 
converting it for the Atari — often a 
great deal more, when it makes heavy 
use of string arrays. Personal 
preferences aside, this is a reality, and 
it makes me very eager for the release 
of Microsoft's BASIC for the Atari 
(which ought to be available on disk by 
the time you read this). 

I work every day with all three com- 
puter systems. While I did make a 
choice of one of them for my home 
computer, I've enjoyed learning more 
about the strengths of each of them. I 
don't think that any of the three is in- 
herently superior to the others; and all 
three have weaknesses and shortcom- 
ings that leave me pounding my head 
against my desk some days. I don't 
pretend to be an expert in any of them 
— just a learner, like most of you, 
eruditely expounding what I'm learn- 
ing. 

Well, that took up enough space that 
I don't have to come up with as much 
original material this month. Last 
month I did promise a further discus- 
sion of arrays, and since that's not a 
really big topic it will be a good one to 
tackle with my remaining resources. 
Not only that, but it relates well to the 
above comments about the Atari's 
string-handling methods. 

An array is simply a numbered list of 
items. The items might be numbers or 
strings, and the list might have one or 
more dimensions. The following is a 
grocery list which can be considered an 
example of a one-dimensional string 
array: 

Groceries 

(0) milk 

(1) bread 

(2) cheese 

(3) eggs 



(4) frozen pizza 

(5) extra pepperoni 
(6) 

(7) 
(8) 

The numbers in the parentheses are, of 
course, the item numbers (or index 
numbers), and the groceries are the ac- 
tual items (or elements) in the array. 
Notice that the item numbers start with 
rather than the more socially accept- 
able number 1. Computers normally 
start numbering everything with zeroes 
(a result of their binary upbringing), so 
you have to get used to having one 
more array element than the highest 
item number might lead you to expect. 
Notice also that while the item 
numbers go up to 8, reserving nine 
places in the list/array, not all of them 
are filled with actual items. This one- 
dimensional array, then, has a dimen- 
sion of 8 (actual capacity of 9), with 
the last three places occupied by the 
"null string." 

In the case of the actual grocery list 
which you would write out on a piece 
of paper, you would often put a title on 
it so that you would know at a glance 
what sort of list it was. Computers ap- 
preciate titles on their lists/arrays as 
well; in fact, they insist on them. When 
giving a title to an array for the benefit 
of the computer, there are several 
things to keep in mind. First, the title 
must be a legal variable name; second, 
the title must indicate the type of array 
you want to set up (real numbers, in- 
teger numbers, or strings); and third, 
there must be a statement telling the 
computer how many spaces to reserve 
for items in your array. The following 
lines of code will create the above list 
as an array in the computer's memory 
and fill in the items listed: 

100 DIM GROCERIES$(8) 

1 10 GROCERIES$(0) = "MILK" 

120 GROCERIES$(l) = "BREAD" 

130 GROCERIES$(2) = "CHEESE" 

140 GROCERIES$(3) = "EGGS" 

150 GROCERIES$(4) = "FROZEN 

PIZZA" 

160 GROCERIES$(5) = "EXTRA 

PEPPERONI" 

The dollar sign, as usual, indicates a 
string variable, and the DIM statement 
sets the maximum size of the array. 

Such string arrays are not allowed by 
Atari BASIC or Apple Integer BASIC 
(although numerical arrays are al- 
lowed). In these BASIC dialects, the 
DIM statement is used quite different- 
ly: It defines the maximum number of 
characters that a particular string 
variable may contain, as discussed in 
SoftSide 



the October column. Lacking the 
capability of defining string arrays, it is 
nevertheless possible to simulate them 
using a bit of additional coding. This 
involves creating one very large string 
composed of lots of little substrings, 
and then somehow keeping track of 
where each of those substrings (each 
simulated array element) is located. 
The length of this string is limited only 
by available memory on the Atari, but 
is confined to 255 characters by Apple 
Integer BASIC. 

One method of keeping track of 
these substrings is to store them at 
regular intervals within the larger 
string. This requires that you know 
how long the longest "array element" 
(substring) is going to be, in order to 
allow enough of a gap between them. 
If you know that the longest element 
will be ten characters, for instance, 
then you can store the first element in 
positions 1-10, the second in positions 
11-20, and so on. To make room for 
six such elements, you would need a 
string DIMensioned to 60 characters. 
Then, to access the nth element of the 
array GROCER Y$, you would look at 
characters (n*10-9) through (n*10). 
Here's an example (I've shortened the 
string name 'cause I'm getting tired of 
typing it): 

200 DIM G$(60) 

210G$(1,10)= "MILK 

220 G$(l 1,20) = "BREAD 

230 G$(21 ,30) = "CHEESE 

240 G$(31,40) = "EGGS 

250 G$(41,50) = "PIZZA 

260 G$(5 1,60) = "PEPPERONI " 

270 PRINT "CHOOSE ONE (1-6): "; 

280 INPUT NUM 

290 PRINT G$(N*10-9,N'*10) 

300 GOTO 270 

Notice that the elements are filled up to 
ten characters, using blank spaces, 
when they are plugged into the string. 
Without this or a similar precaution, 
the remaining characters might be 
filled with miscellaneous garbage. An 
alternative method is to fill the entire 
array with spaces before it is used at 
all, with a loop such as this: 

205 FOR I = 1 TO 60: G$(I)= " ": 
NEXT I 

This has the added advantage of filling 
out the whole array, so that elements 
of it which are not yet plugged in will 
have their spaces reserved for them. If 
this is not done, an attempt to access 
an "un-entered entry" might result in a 
program crash. 

An alternative method for keeping 

track of the elements in a simulated 

string array is to create a numerical ar- 
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Attend the biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 
Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send 35 per person with the name of the show 
you will attend to National Computer Shows. 
824 Boylston Street. Chestnut Hill. Mass. 02167. 
Tel 61 7 739 2000 Tickets can also be purchased 
at the show. 



CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E. CAPITAL ST. SE 

(ECAP. ST. EXIT OFF I 295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

11 AM TO 7PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS 



BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-1 8, 1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NEAT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 29+WV 1,1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 
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LOS ANGELES 
LA Convention Center 

1 201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



ray to hold index numbers. In this 
method, each element of the numerical 
array is a pointer to the location of the 
corresponding element of the string ar- 
ray. Let's say that the simulated string 
array is to be stored in G$, and we 
create a numerical array P(n) to point 
to the elements of the array. We can 
then set P(l) equal to the location of 
the last character of the first string ele- 
ment, P{2) equal to the location of the 
last character of the second element, 
and so on. Element N of the string ar- 
ray can then be accessed by looking at 
characters P(N-l)-l-l through P(N) of 
G$ — that is, from the character 
following the last character of the 
previous element, through the last 
character of the present element. 
This would be expressed as G$ 
(P(N-1)-1,P(N)). 

In this approach, the P(n) array 
needs to be dimensioned to the maxi- 
mum number of elements that will be 
stored in the simulated string array, 
and P(0) needs to be defined as in 
order to properly access the first ele- 
ment of the array. (Editor's note: This 
is the method used in the Atari version 
of Microtext 7.0 elsewhere in this issue, 
to keep track of the location of each 
line of text in T$.) The advantage of 
this method over the first is that it 
doesn't waste string space by reserving, 
say, 20 characters for each substring 
when many of them might be only a 
fraction of that length. The disadvan- 
tage is that an element cannot be 
changed very easily, since it is fitted in- 
to its own precisely-sized niche. To 
replace it with a longer element in- 
volves reorganizing the whole 
simulated array, along with the 
numerical pointers. The situation is ex- 
actly the same as the choice between 
random and sequential disk files, and 
only the requirements of the particular 
situation can determine which ap- 
proach would be best. 

So far I've been talking about one- 
dimensional arrays. They are the most 
common type, but there are times when 
two or three or even more dimensions 
come in very handily. Atari BASIC 
allows two-dimensional numerical ar- 
rays, and Applesoft and TRS- 
80® BASIC allow n-dimensional 
numerical and string arrays (i.e., any 
number of dimensions). If a one- 
dimensional array can be visualized as 
a list, then a two-dimensional array is 
like a chart with numbered rows and 
columns: Any particular entry can be 
accessed using two index numbers, 
specifying the row and the column in 
which it is located. A two-dimensional 
array named CHART with ten col- 
umns and four rows would be set up by 
the statement DIM CHART(9,3). 



Likewise, a three-dimensional array 
can be visualized as a rectangular solid 
built of cubical cubbyholes — each 
cubbyhole capable of storing one ele- 
ment of the array, and accessible by 
specifying its unique row, column, and 
"depth" into the array. Arrays having 
more than three dimensions are quite 
rare, and more difficult to visualize, 
but you may occasionally find an ap- 
plication for one. 

When setting up multidimensional 
arrays like this, it becomes even more 
important to remember that there is a 
zero index in each of the dimensions. If 
CHART were DIMensioned (10,4) in- 
stead of (9,3), room would be reserved 
in memory for 55 entries instead of 40. 
While this isn't a large waste, it can 
become more significant when using 
more dimensions or larger arrays. A 
numerical array DIMensioned (500,2) 
would waste 504 storage cells if only a 
500-by-2 array were actually needed. 
And those storage cells aren't just one 
byte of memory each; for a real- 
number array, each element occupies 
four to eight bytes of memory (depend- 
ing upon the computer and whether a 
double-precision mode is specified). 

In addition to making use of the 
zeroth array index, defining an array as 
an integer array (in Applesoft or TRS- 
80® BASIC) can save vast quantities of 



memory. This limits you to storing 
whole numbers between -32767 and 
-1-32767, but that's often no problem 
at all; and each element takes only two 
bytes of memory rather than four or 
more. Defining an integer array is as 
simple as adding "%" to the variable 
name in the DIMension statement and 
all subsequent uses of it, or using the 
TRS-80®'s DEFINT statement to 
avoid having to type the "%" each 
time. 

The uses of arrays are legion. 
Perhaps the most obvious application 
is to store a quantity of numbers or 
strings that need to be accessible to 
your program, and which may also 
need to be saved onto a tape or disk for 
later use. A less obvious application 
crops up in all kinds of programs (not 
just ones that process a lot of data): 
avoiding repetitive code. If you find 
yourself writing sections of program 
code that are virtually identical except 
for a variable or two, there's almost 
certainly a way to conserve time and 
space by using an array or two in con- 
junction with a loop. With proper use 
of arrays, loops, and (those other 
codesavers) subroutines, there should 
be almost no occasion for duplicating a 
single line of code in any program, 
a single line of code in any program, 
a single line of code in any program, q 



The powerful package: 
Super-Text II 



TM 



Allows you to learn the basics of text editing 
quickly. Advanced features will meet your 
expanding word processing requirements 
far into the future. $150.00 



plus Form Letter^" 



Provides automatic repetitive printing of letters. 
Allows insertion anywhere in a letter, also direct 
entry, optional prompting, special commands. 

$100.00 

plus Address Book'"" 

stores names, addresses, and telephone 
numbers and prints mailing labels. Has 
user-definable category system. $49.95 

From the leader in word processing 
for the Apple 11 or 11 Plus 
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by Allen L. Wold and Fred D'Ignazio 



SoftSide welcomes Fred D'Ignazio and 
Allen L. Wold whose Entertainment 
Tomorrow column will appear each month. 

Fred D'Ignazio is a computer enthusiast 
and author of several books on computers 
for young people, including: The Creative 
Kid's Guide to Home Computers; Katie 
and the Computer; and Small Computers: 
Exploring Their Technology and Future. 
He is presently writing a series of books on 
how to create graphics-and-sound 
adventure games on the Apple, Atari, 
Commodore VIC, and TRS-80® Color 
Computer. 

Allen L. Wold is a science-fiction writer 
with two published novels. The Planet 
Masters and Star God, and a dozen or so 
others in various stages of conception or 
revision. Wold is a long-time devotee of 
role-playing games and other forms of 
gaming. 

D 'Ignazio and Wold do their writing on 
word processors. Both see the computer not 
just as a tool or toy, but as a force that is 
profoundly shaping our lives. Both are 
optimistic about future computer 
applications and believe in the value of bold 
speculation about computers and their 
impact on our lives. 



Computerized games and recreation 
are becoming more common, more 
complex, and more sophisticated all 
the time. For an admittedly biased ex- 
ample, we can take a look at the 
November/December (1981) issue of 
Games magazine in which the editors 
list their 100 favorite games. Twenty- 
six of these are electronic, including 
one construction set, one robot tank, 
five hand-held action games, four 
home video systems, and six board 
games. Among the "top" games were 
computerized chess and backgammon, 
computerized bridge, computerized 
Dungeons and Dragons (Mattel), a 
fascinating computer-moderated board 
game called Dark Tower (Milton 
Bradley), and a version of the old 
Jungle Game (once called Stratego) but 
now called The Generals (Ideal). 

In last year's list of favorites, there 
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were 23 electronic games. The games, 
though almost as numerous, were less 
complex and less flexible than the cur- 
rent crop (most of them were designed 
to play only one limited game). This 
year there are many "multi-game" 
games, and those which do only only 
thing have become more sophisticated. 
For example, a grand prix auto race 
game features impressive 3-D graphics 
on a liquid crystal display (LCD). 
Another game challenges you to escape 
from 1000 mazes and displays each 
maze in a 3-D prisoner's-eye view from 
inside the maze. 

Games of this sort are only a small 
part of the far larger field of electronic 
and computerized recreation, but they 
indicate a massive trend. Let's take an 
extreme example, to see where this 
trend might lead us. 

Some time in the not too distant 
future, when you telecommute home 
from a hard day's work and want a lit- 
tle recreation, it might go like this: 

You leave your work terminal in 
your study and wander into your fami- 
ly "media" room and flop down in a 
comfortable chair. You put on 
something that looks like a cross be- 
tween a football helmet and a welder's 
mask. It is very lightweight and con- 
sists of a wrap-around video screen, 
earphones, microphone, and a tiny, ex- 
tremely short-range radio. That radio 
links the microchip computer im- 
planted in your skull to the super-fast 
computer that dwells in distributed 
nodes inside the walls of your home. 

(The information wiring diagram of 
your home looks like a sketch of the 
neural nets and clusters of ganglia that 
make up the human brain. In a sense, 
your house is a brain, and you are a 
mobile information node that migrates 
around the brain's interior.) 

With the helmet in place, you are 
now in a direct link with your com- 
puter system, which in turn is linked to 
every other computer in the world via 
laser-microwave satellites. The chip in 
your head is wired to portions of your 
SoftSide 



brain. You have learned, by biofeed- 
back methods, to use the chip like an 
extra hand, except the "hand" has a 
thousand fingers and works with a 
mere thought. It is the controller of a 
complex computer terminal device. 

As soon as the helmet is in place, the 
LCD screen forms an image, letting 
you choose from a number of network 
circuits monitored by your house com- 
puter. You can pick news, movies, 
communication with other people, 
education, or games. 

You decide on games, and the image 
on the screen clears. As your eyes ad- 
just to the close focus, it no longer 
looks like a screen. It's just like normal 
vision, except that the graphics quality 
is definitely (though subtly) superior. 
That quality is there to remind you that 
what you see is an electronic fantasy, 
not the real thing. 

You can scan different radio fre- 
quencies, which you perceive 
analogously as different footpaths 
through a forest, as dirt roads, country 
roads, and superhighways. 

Whoooop! With a feeling of roller- 
coaster acceleration and a slight touch 
of vertigo, you land on a high-speed 
game channel. You're automatically 
up and running on any of a hundred 
old games you've recently abandoned 
or you can start a thousand other 
games from scratch. You float over a 
game menu that scrolls swiftly beneath 
you, indicating in sights and sounds all 
the fabulous forms of entertainment 
that can be instantly yours. You make 
your choice (you don't have to speak 
or push buttons, you just think): 
ADVENTURE! 

You see new images, new sets of 
choices, and a picture that indicates 
that there are others on the laser-and- 
fiber-optic, global network who, like 
you, want partners to play with or 
against. Satellite Spy sounds good 
tonight, and there are two others who 
want to play too, so with another 
thought you switch on the game. 

The computerized game moderator 



(an Artificial Intelligence) relates the 
game rules to you by shuffling through 
a fast sequence of visuals and by talk- 
ing like a tobacco auctioneer over your 
audio channel. You have heard its spiel 
before, so you shut your eyelids tight, 
mentally call up an override, and leap 
directly into the game. All three of you 
— the other two are probably 
thousands of miles away — are ex- 
perienced gamers, so tonight there will 
be secret rules which you'll have to 
discover to make your best score. 

Suddenly you see that you are in the 
lounge of a military experimental 
satellite, with ten other people. Two of 
them are your opponents, the others 
are "simulacra" created by a program 
running on a large computer multi- 
network that probably straddles a good 
part of the planet. Part of your mission 
in the game is to figure out who your 
opponents are, and which of the 
simulacra will help you steal the 
particle-beam jamming device. But you 
don't think in those terms, since all you 
know is that you are a spy, your na- 
tion's security depends on your obtain- 
ing the device, and you have only two 
hours (in real time) in which to do it. 

Whenever you need information in 
order to play the game, an electronic 
voice tells you what you need to know. 
Otherwise, you are on your own. You 
explore the satellite, get to know the 
other people — it is almost impossible 
to tell the real ones from the false — 
and plan your strategy. One person 
tries to seduce you, but you are 
suspicious. Another seems angry with 
you, but you figure out that here is 
your ally, pretending to hate you so 
others won't suspect. 

You find out that the device is not on 
board, but the device specifications are 
recorded in the satellite's computers, 
and you have to break computer 
security to get the information. It 
doesn't matter that you know nothing 
in real life about computer cryp- 
tography and parallel operating 
systems, since the simulation provides 
you with a means, if you can figure 
it out. 

You know you are on the right track 
when you discover that one of the 
secret rules concerns telepathy. You 
quickly master the skill (you've played 
a lot of magic-oriented games) and 
learn that only the commanding officer 
knows which data bank contains the 
secret. But you also learn that someone 
else has read his mind before you. One 
of your opponents is ahead of you. 

You suspect one of the characters is 
an opponent, so you pick a fight with 
her. She is much stronger than you, but 



you fight dirty, and you win. 

Was your guess correct? It better 
have been because you've now 
precipitated the end-game. 

You have to find the particle-beam 
data and get out at once. But you 
discover that the data bank has already 
been raided. The information has been 
randomly recoded. The jamming- 
device specifications are lost. Your 
mission is aborted. You have only one 
source of action remaining: Escape. 

You escape from the satellite aboard 
a small, one-person garbage tug that 
has put in at the satellite for fuel and 
repairs. You smile grimly as you 
crouch, not moving a muscle, con- 
cealed beneath a huge pile of foul- 
smelling refuse. 

When the game is finally over, the 
pictures before your eyes become more 
stylized. You see representatives of two 
figures, your opponents in the game. 
The person you neutraHzed was one of 
them, but the other was the Security 
Officer, whom you assumed to be a 
simulacrum, but who was in fact the 
other spy, playing a double game, as 
her skill required. 

You made points for locating the 
jamming-device specifications, for 
figuring out and using telepathy, for 
. neutralizing an oponent, and for iden- 
tifying one of the simulacra as a helper. 
The person you neutralized is the real 
loser of the game, having only located 
the data without retrieving it. But even 
he made points for mastering the social 
situation, to which you paid no atten- 
tion at all. 

Your other opponent, the Security 
Officer, is the winner. She prevented 
you from stealing the jamming device, 
and then stole it herself. She escaped 
successfully from the satellite, and 
even discovered a plot to conquer the 
world. In winning the game, she 
amassed a huge number of points that 
she can carry with her to the next game 
like medals or battle trophies. 

After the game is over your scores 
are displayed, your rankings with 
others who have played this game are 
compared, and you return to float 
above the rolHng menu display. 

You are physically and emotionally 
exhausted. There will be no more 
games tonight. Maybe some music. 
Then sleep. 

The above scenario is a simple role- 
playing game that makes use of some 
advanced technology. We rushed 
through the game, but it serves to make 
a point: electronic entertainment in the 
future will be absorbing, stimulating, 
SoftSide 



and mind-boggling. And this is just a 
taste of what is yet to come. 

Satellite Spy represents only a mid- 
way point in the development of com- 
puterized recreation. It is nowhere near 
the ultimate. And there are other forms 
of recreation which are quite different 
from role-playing games. Computers 
can take you to new worlds of fantasy 
and the imagination. Yet as computers 
continue to shrink, like Lewis Carroll's 
Alice, they too can enter new worlds. 
Our games, our game clothes, our 
sports equipment, even our bodies can 
become hosts for tiny, implanted com- 
puters that moderate a game or act as 
our teammates or opponents. In the 
near future, our leisure time will be 
filled with computerized footballs, 
hockey pucks, ski bindings, go-carts, 
and motorboats. Like the sports- 
equipment company of today in its 
well-known TV ad, the sportscomputer 
companies of the future will boast that 
"We make weekends!" 

In the coming months, we will use 
this column to focus on computer- 
assisted role-playing games — and on 
many of these other rapidly evolving 
areas of computerized, electronic 
entertainment. The point of view we'll 
adopt is that computerized entertain- 
ment (or entertainment of any kind) is 
not a trivial thing. There is big money 
in recreation as the arcade video game 
companies have demonstrated, riding 
the backs of computer chips out of 
non-existence in the early 1970s to a 
Midas-like income of $2.9 billion 
dollars in 1980. 

Recreation is also the stuff of 
culture, providing us with music, 
plays, and literature, as well as games. 
You can farm with a stick, or farm 
with a ten-ton tractor, but unless you 
have a way to play, you have no 
culture. 

In the months to come we hope to 
explore many surprising facets of elec- 
tronic entertainment. We will look at 
some of the possibilities in the near 
future, some in the distant future, and 
some that might not really be possible 
at all. There is a whole area of board 
games, as hinted at by Dark Tower and 
computerized bridge, to be explored. 

There are game applications for a 
multitude of computer-related 
technologies, including intelligent 
video disks, lasers, fiber optics, and 
other optical (light-based) forms of in- 
formation processing and storage. 
There is artificial intelligence, super 
high-resolution graphics and anima- 
tion, music and speech synthesis, and 
computerized vision and speech 
understanding. 
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Wargamer's delight 



Three from Potkin 

Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 
scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 



Kriegspiel II 

A much improved two-player version 
of the original. Kriegspiel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 



Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 
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And there is what science-fiction 
writer Roger Zelazny calls the "tele- 
factoring" device (what Al expert. 
Marvin Minsky terms a "telepres- 
ence"): a super-controlled robot load- 
ed with miniature computers and sen- 
sors of every sort. A human operating 
a telefactoring device from some 
remote location would electronically 
see what the machine sees, hear what 
the machine hears, and feel what the 
machine feels. He or she wouldn't be 
present with the machine (inside its 
metallic skin) but would be telepresent. 

Telepresences will at first be used 
mainly by NASA, the military, 
oceanographic agencies, and large min- 
ing and manufacturing operations. 
Later on, they might become a new 
generation of cybernetic gladiators, 
remote-controlled warrior slaves bat- 
tling each other in fantastic shapes and 
disguises while satellite networks cover 
the action for millions of people cheer- 
ing in the stands of an electronic global 
coliseum. 

This is only a hint at the types of 
electronic entertainment that will soon 
be invented. Humans love games. 
Games mean big money. Electronics 
and computers are inexpensive, power- 
ful vehicles for delivering games and 
making huge sums of money. The 
rapid evolution of computerized enter- 
tainment and the fierce competition 
among its providers and distributors 
will accelerate at a dizzying pace 
throughout the foreseeable future. 

We will make frequent use of 
scenarios in this column in an attempt 
to give you a feeling for the types of 
games and recreation the various 
technologies will actually produce. The 
scenarios may sound like science fic- 
tion, but they will all be based on 
technologies already in existence or 
soon to emerge from the laboratories 
and drawing boards of scientists and 
engineers. Each month we will select 
one area of technology that is likely to 
have a major impact on gaming and 
recreation. We will speculate on enter- 
tainment applications for that 
technology and extrapolate into the 
future from a soHd grounding in 
present-day facts. 

The trends and technologies are all 
around us Hke fast-moving mechanical 
walkways. We invite you to climb 
aboard a new walkway each month and 
join us on a brief but fascinating ride 
into the future of computerized equip- 
ment. 
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by Jon Voskuil 



PROGRAM 
DOCUMENTATION 
TEXTWRITER, PART 1 

Microtext 1.0 is a word processor 
program for a 16K Apple (with Ap- 
plesoft), Atari, or TRS-80® (Models I 
or III). 



Although it will have a variety of 
uses, this program was designed with 
one specific appUcation in mind. Soft- 
Side now requires that all programs 
which are submitted to us for possible 
publication, ALONG WITH THEIR 
DOCUMENTATION, be submitted 
on tape or disk. This introduction is a 
guide to the use of Microtext 1.0, and 
to the form of documentation which 
we need for submitted programs. We 
are always seeking original, high- 
quality software from our readers for 
publication in SoftSide or SoftSide DV 
(Disk Version), and for marketing 
through SoftSide LIBRARY. Notice 
that because of DV and LIBRARY, we 
are now accepting submissions which 
are written in Machine Language or 
which may require the use of a disk 
drive, in addition to those which are in 
BASIC and compatible with both disk 
and tape systems. 



SoftSide Documentation 
Guidelines 

When you send a program to us for 
consideration, here is what your sub- 
mission disk (preferably) or tape (OK) 
should contain: 

1. A thoroughly tested, debugged 
version of your program. If you 
observe the following suggestions, 
your program will have a better chance 
of being accepted, and of receiving a 
higher payment if accepted: 

(a) Design your program to be 
user-oriented. Include an option to 
print an instruction summary, make 
every effort to trap unexpected inputs, 
and prompt the user to do what is ex- 
pected of him. 

(b) Keep line numbers spaced 
apart, so that the program has a neater 
appearance, and modifications can be 
made more easily. 



(c) If you document your program 
using REM statements, please do not 
reference a REM line with a GOSUB or 
GOTO; you should be able to delete all 
REMs and leave the program's oper- 
ation unaffected. (Try it!) We suggest 
that the line numbers of all REMs end 
in a "9." 

(d) If your submission is on tape, 
save it at least twice. (Not a bad idea 
for disks, either.) We don't advise 
using bargain-basement tapes, since 
they are subject not only to data losses 
but to jamming (especially after a trip 
through the mail). If it won't load, we 
can't review it. 

2. A ONE-PAGE typed or printed 
summary — on paper — of how to use 
the program, such that a computer- 
knowledgeable person can run through 
the program with no other information 
in hand. This is the only thing that we 
need (or want) on paper. Be sure to in- 
clude the program's name and your 
name, address, and phone number on 
this sheet. 

3. One or more text files, created 
with Microtext 1.0, containing your 
name, address, and phone number, the 
program's name, and the following 
three types of documentation: 

(a) An introduction to the pro- 
gram. This should contain any 
necessary background information, 
hype, etc., plus complete instructions 
for use. 

(b) A programmer's explanation 
of the coding, describing the various 
program sections and providing com- 
ments on programming techniques 
which would benefit others. If you use 
PEEKS, POKES, CALLS, and other 
such Statements, include notes describ- 
ing what they do. 

(c) A listing of all variables used in 
the program. These should be in one 
list (not separate lists for strings, ar- 
rays, etc.), in alphabetical order. Brief- 
ly describe how each variable is used in 
the program. 

About Microtext 

Microtext 1.0 is a simple word pro- 
cessor which allows you to write text 
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onto disk or tape. It was designed with 
SoftSide's LIBRARY in mind, so that 
files created by it can be easily 
displayed and automatically formatted 
on the video screen using a simple util- 
ity program (which will be published 
next month). In its present form it is 
used more hke an electric typewriter 
than a full-featured text editor, requir- 
ing that you have your text in 
reasonably polished form before enter- 
ing it. Unlike a typewriter, it does 
allow you to backspace over mistakes 
on the current line, and it automatical- 
ly breaks a line between words. The on- 
ly other editing option available in this 
version is to delete from any line to the 
end of the text. Therefore, it's ad- 
visable to check each line for errors as 
you are typing it in, or at least before 
you have entered very many lines in 
succession. 

If you have no word processor pro- 
gram for your computer system, you'll 
find Microtext to be quite an improve- 
ment! On the other hand, if you do 
have one of the many excellent com- 
mercially available, full-featured text 
editors, you'll find Microtext lacking 
some of your favorite features. (So 
what do you expect from 4K of BASIC 
code??) The rationale for requiring its 
use for submitted documentation is 
basically consistency. Files created by 
the many word processors on the 
market are not all compatible with one 
another, and may not be easily 
readable at all without the program 
that created them. In our LIBRARY 
we need media-based documentation 
for all three computer systems that can 
be easily created and easily accessed by 
anyone with the appropriate computer 
and no additional software. 

When you run Microtext 1.0 you will 
be confronted by a mostly blank 
screen. The progam is self-prompting, 
and the instructions are simple: Start 
typing. Because of the TRS-80® 's 
slower clock speed, that computer's 
version will seem a bit sluggish for fast 
typists. But then, more careful typing 
will generally pay off in greater ac- 
curacy. While typing, the keyboard 
may occasionally seem to "lock up." 
This happens when the computer 
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pauses to clear unused string space, 
and is perfectly normal (though 
somewhat annoying). This will happen 
more frequently as your text file grows 
larger. Incidentally, if you have lower 
case available on your computer, feel 
free to use it, keeping in mind that the 
command codes must be typed as 
capital letters. 

The three command codes allow you 
to review the text you've entered, save 
it to disk or tape, and load from disk or 
tape a previously saved file. In the Ap- 
ple and Atari versions, these oper- 
ations are accessed by pressing ctrl-R, 
ctrl-S or ctrl-L. In the TRS-80® ver- 
sion, press CLEAR and then R, S or L. 
You can also quit the program using 
ctrl-Q or CLEAR Q. If you should 
type in a save or load command in- 
advertently, you can return to the 
typing mode by pressing CLEAR 
(TRS-80®) or ESC (Apple and Atari). 

In the review mode the computer will 
scroll through the text in memory from 
the beginning, allowing you to pause at 
any time by pressing any key. Then 
RETURN/ENTER will continue the 
review, the space bar will display one 
additional line and pause again, and X 
or ctrl-X will allow you to delete all 
text following the last line displayed. If 
you choose the last option, you'll be 
asked to confirm that you do indeed 
want to delete to the end of the text; if 
not, you'll be returned to the review 
mode. 

The save option should be exercised 
occasionally while typing in your text, 
to minimize the effect of system (or 
program?) crashes. Loading of a 
previously saved file can be done at any 
time; be aware that this will destroy 
any other text you have in memory at 
the time. 

The DIMension statement in line 
120, and the CLEAR in line 1 10 of the 
TRS-80® version, reserve memory for 
the strings which hold the text. The 
numbers listed work fine for a 48K 
system (40K Atari) with DOS booted, 
with some memory left over. If you 
have less than the full complement of 
memory in your system, you'll need to 
adjust these downward appropriately; 
if you're really tight on memory, you 
can delete all REMark lines. Or, if you 
have full memory and no DOS hogging 
part of it, you can increase the 
amounts. The Apple and TRS-80® ver- 
sions use the L$ array to store the text 
line by line; the Atari version uses T$ 
to store it character by character. 

If you're using Microtext for pro- 
gram documentation, all the documen- 
tation need not be in a single text file. 
If it can't be fit into one file in 
memory, feel free to store it in as many 
files as necessary (but not too many 
22 December 1981 



MORE than necessary!) Currently 
there is no check to prevent you from 
trying to write more text than the array 
dimensions or the computer's memory 
will permit. (Definitely a matter for 
later enhancement!) 

If you have questions about our re- 
quirements for program documen- 
tation, please don't hesitate to call 
(603-673-0585) or write. Since this is a 
new system, we anticipate that there 
will be problems and ambiguities to be 
ironed out. We welcome your sugges- 
tions for improvements to the pro- 
cedures, and for enhancements to 
Microtext. We will be publishing addi- 
tional modules for the program which 
will enable you to use it for producing 
formatted hard-copy printouts, and to 
add further editing capabilities. 

Variables 

B$: Backspace character. 

BKSP: ASCII of backspace character. 

C: ASCII of C$. 

C$: Input character. 

CHAR: Current character position in 

text line. 

CLR: ASCII of CLEAR. 

CR$: Character to indicate a carriage 

return. 

D$: CHR$(4), for Apple disk 

operations. 

ESC: ASCII of ESCAPE. 

F$: File name. 

FT$: Temporary file name string 

(Atari). 

H, HH: Horizontal cursor position 

(Atari, Apple). 

I, J: Loop variables. 

L: Temporary variable. 

L$: Text in current line (Atari); also 

used as temporary variable. 

L$(n): Main string array to hold lines 

of text (Apple, TRS-80®). 

LIN$: A line of hyphens (Atari). 

LN: Number of lines in text. 

LNXT$: Text in next line 

(temporary). 

LP(n): Pointer to the last character of 

hne n in string T$ (Atari). 

LWID: Maximum number of 

characters per line. 

P, PP: Cursor location (TRS-80®) 

RTN: ASCII of RETURN/ENTER. 

S$: A line of spaces (Atari). 

SL, SLOC: Location of last blank 

space in current line. 

SPC: ASCII of a blank space. 

SS: Number of characters to erase. 

STP: Flag used in review mode to 

indicate whether to step through line 

by line. 

T$: Main string to hold text (Atari). 

V, VV: Vertical cursor position 

(Atari, Apple). 

X, X$: General-purpose variables. 

Z: Timing loop variable. 
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i REH $$*i$»$$«$$«»$««i«m«»» 


2 REN « % 


3 REH $ HICROTEXT 1.0 ♦ 


4 REH % APPLESOFT VERSION % 


5 REH $ ♦ 


6 REH $ BY JON R. VOSKUIL * 


7 REH % 10/81 » 


8 REH » * 


9 REH «$tt$t$$$$««$«$$««$$«(M« 


10 TEXT : HOME 


20 VTAB 8: PRINT TAB( 8)"H I C 


R T E X T 1.0" 


30 VTAB 12: PRINT TAB( 12) "BY i 


ON R. VOSKUIL" 


40 VTAB 14: PRINT " COPYRIGHT 19 


81 SOFTSIDE PUBLICATIONS" 


50 FOR 2 = 1 TO 3000: NEXT Z 


Initialization. 


99 REH INITIALIZATION 


100 HOHE 


110 POKE 35,22 


120 DIH L$(1000) 


130 ESC = 27:BKSP = 8:RTN = 13: SP 


C « 32:B» = CHR$ (8):CR$ = 


CHR* (93) 


140 CHAR = 1 


150 LN = 1 


160 D$ = CHR$ (4) 


170 PRINT Dti"HON C,I,0" 


180 miD = 38 


190 V = 1:H = 1 


200 VTAB 23: FOR I = 1 TO 39: PRINT 


"-";: NEXT : PRINT 


210 VTAB 24: HTAB 1: INVERSE s PRINT 


"SAVE: CTRL-S REVIEN: CTRL-R 


LOAD: CTRL-L";: NQRHftL 


220 VTAB V: HTAB H 


Main input loop. 


499 REH INPUT LOOP 


500 BET Ct:C = ASC (C$) 


510 IF C = ESC THEN C* = "J":C = 


64 


520 IF C = RTN THEN C» = CR* 


639 REH BACKSPACE 


640 IF C < > BKSP THEN 720 


650 IF CHAR < 2 THEN 500 


660 PRINT B«;" ";B*; 


670 CHAR = CHAR - 1 


675 IF CHAR < 2 THEN L»(LN) = "" 


: GOTO 500 


680 L»(LN) = LEFT* (L«(LN), LEN 


(L<(LN)) - 1) 


700 BOTO 500 


719 REH CTRL CHARACTER 


720 IF C < ESC AND C < > RTN THEN 


2000 


739 REH END OF LINE 



740 CHAR = CHAR + 1: IF CHAR < LM 


39) 


4160 NEXT I 


ID OR C = SPC OR C = RTN THEN 


3010 VTAB 24: HTAB 1: PRINT "PRE 


4170 PRINT D»i "CLOSE °;F$ 


760 


SS SPACE BAR TO PAUSE"; 


4180 GOTO 4220 


750 GOSUB 1000 


3020 HOHE : SPEED= 220 


4190 INPUT "START RECORDER AND P 


759 REM ADD TO STRING 


3030 FOR Z = 1 TO 500: NEH Z 


RESS RETURN •;X* 


760 L$(LN) = L$(LN) + C$ 


3040 IF LN = 1 THEN 3210 


4200 FLASH : PRINT " SAVING ";: NORHAI 


779 REN RETURN 


3050 FOR I = 1 TO LN - 1 


4210 STORE L$ 


780 IF C < > RTN THEN 880 


3060 PRINT L*(I) 


4220 PRINT 


820 PRINT C» 


3070 IF PEEK ( - 16384) < 127 AND 


4230 POKE 34,0: POKE 35,22 


840 LN = LN + 1:L$(LN) = "":SLOC = 


NOT STP THEN 3200 


4240 RETURN 





3080 STP = 0: SPEED= 255: POKE - 




16368,0 


Subroutine to load text from disk or 


850 CHAR = 1 


3090 VV = PEEK (37) + 1 


tape. 


860 GOTO 500 






879 REH PRINT ON SCREEN 


3100 VTAB 24: HTAB 1: POKE 35,24 


4999 REH LOAD FROH DISK/TAPE 


880 PRINT Ct: 


: POKE 34,23: PRINT 


5000 VTAB 24: HTAB 1: POKE 35,24 


890 IF CHAR = LNID - 3 THEN PRINT 


3110 PRINT : PRINT "RTN:CONT SP 


: POKE 34,23: PRINT 


CHR$ (7); 


C:STEP CTRL-X:DEL TO END"; 


5020 VTAB 24: HTAB 1: PRINT "LOA 


899 REN UPDATE SPC POINTER, CHK 


3120 GET U-A = ASC (XO 


D FROH TAPE OR DISK? (T/D/ES 


FDR LINE END 


3130 IF X < > 24 THEN 3160 


C) •; 


900 IF C = 32 THEN SLOC = CHAR: IF 


3140 PRINT : PRINT "DELETE FROH 


5030 GET X*: PRINT 


CHAR = miD THEN LN = LN + 1 


HERE TO END OF TEXT? (Y/N)"; 


5040 IF X« = CHR* (ESC) THEN 52 


:L$(LN) = "rCHAR = 1:SL0C = 


: GET X«: IF X* < > "Y" THEN 


50 


0: PRINT 


3110 


5050 IF X« = "T" THEN 5210 


920 GOTO 500 


3150 LN = 1 + 1:L$(LN) = "":CHAR = 


5060 IF X» < > "D" THEN 5020 


Subroutine to break line at a space 


1:SL0C = 0: POKE 34,0: POKE 


5070 INPUT "FILE NAHE: •;F» 


and to initialize the next line. 


35,22: GOTO 3000 


5080 INPUT "INSERT DISK AND PRES 


999 REN JUSTIFY it INCR LINE 


3160 IF X = 13 THEN 3190 


S RETURN "jX* 


1000 IF SLOC = THEN PRINT ! GOTO 


3170 IF X < > 32 THEN 3110 


5090 PRINT D$;"OPEN ";F* 


1100 


3180 STP = 1 


5100 PRINT D$;"READ ";F» 


1020 HTAB SLOC 


3190 SPEED= 220: POKE 34,0: POKE 


5110 INPUT L*(0) 


1040 PRINT SPC< LNID - SLOC): PRINT 


35,22: VTAB VV; HTAB 1 


5120 GOSUB 5290 




3200 NEXT I 


5130 FOR I = 1 TO LN 


1050 IF SLOC = LNID - 1 THEN 110 


3210 PRINT L«(LN); 


5140 L<(I) = "" 





3220 V = PEEK (37) + 1:H = PEEK 


5150 GET C$: IF Ct = CHR» (13) OR 


1060 L«(LN + 1) = RIGHT* <L$(LN) 


(36) + 1 


C« = CHR* (141) THEN 5170 


,LltID - 1 - SLOC) 


3230 SPEED= 255: RETURN 


5160 L*(I) = L*(I) f C*: GOTO 515 


1080 L*(LN) = LEFT* iL*iLN),SLOC 


Subroutine to save text to disk or 





- 1) 


tape. 


5170 NEXT I 


i / 

1100 LN = LN + 1 


3999 REH SAVE TO DISK/TAPE 


5180 PRINT : PRINT D*; "CLOSE ";F 


1120 PRWT L$(LN); 

1140 CHAR = LEN (L*(LN)) *■ 2 


4000 VTAB 24: HTAB 1: POKE 35,24 
: POKE 34,23: PRINT 


« 

5190 FOR Z = 1 TO 500: NEXT Z 


1150 SLOC = 


4020 VTAB 24: HTAB 1: PRINT "SAV 


5200 GOTO 5250 


1160 RETURN 


E TO TAPE OR DISK? (T/D/ESC) 


5210 INPUT "START RECORDER AND P 




) 


RESS RETURN ";X« 


Subroutine to process command codes. 


4030 GET X$: PRINT 


5220 FLASH : PRINT " LOADING ";: 


1999 REH PROCESS CTRL CHARS 


4040 IF Xt = CHR$ (ESC) THEN 42 


NORHAL 


2000 V = PEEK <37) + 1:H « PEEK 


20 


5230 RECALL L* 


(36) + 1 


4050 L«(0) = STR* (LN t 10000 + 


5240 GOSUB 5290 


2100 IF C = 18 THEN GOSUB 3000: 


SLOC t 100 + CHAR) 


5250 PRINT 


REH CTRL-R 


4060 IF X* = "T" THEN 4190 


5260 POKE 34,0: POKE 35,22 


2200 IF C = 19 THEN GOSUB 4000: 


4070 IF X* < > "D" THEN 4020 


5270 GOSUB 3000 


REH CTRL-S 


4O80 INPUT "FILE NAHE: "jF* 


5280 RETURN 


2300 IF C = 12 THEN GOSUB 5000: 


4090 INPUT "INSERT DISK AND PRES 


5290 L* = L*(0):L = LEN (L*) 


REH CTRL-L 


S RETURN ";X* 


5300 CHAR ' VAL ( RI6HT* (L*,2)) 


2400 IF C = 17 THEN TEXT : STOP 


4100 PRINT D*i"OPEN ";F* 


:L» = LEFT* (L*,L - 2) 


: REH CTRL-Q 


4110 PRINT D*;" DELETE "jF* 


5310 SLOC = VAL ( RIGHT* (L*,2)) 


2900 GOTO 210 


4120 PRINT D*;"OPEN "iF* 


:L* = LEFT* (L«,L - 4) 


Subroutine to review entered text. 


4130 PRINT D*;"NRITE "jF< 


5320 LN = VAL (L*) 


2999 REH REVIEH TEH 


4140 FOR I = TO LN 


5330 RETURN 


3000 VTAB 24: HTAB 1: PRINT SPCI 


4150 PRINT L*(I) 
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1 REN •miuvmvmvmnivm 

2 REH X I 

3 REM I niCROTEXT 1,0 Z 

4 REM X ATARI VERSION X 

5 REM 7. 7. 

6 REM I BY JON R. VOSKUIL I 

7 REM I 10/Bl 7. 

8 REM X I 

9 REM •mniw.umvmvann 

10 DIM CL$(1):CL»=CHR«(125):PRINT CL$ 

15 POKE 752,1 

20 POSITION 8,8:PRINT "MICROTEK 

T 1.0" 
30 POSITION 12,12!PRINT 'BY JON R. VOS 
KUIL" 

40 PRINT -.PRINT "COPYRIGHT 1981 SOFTS 
IDE PUBLICATIONS" 
50 FOR Z=l TO 1500: NEXT Z 

Initialization. 

99 REM INITIALIZATION 

100 PRINT CL» 

120 DIM L$(40),T«(15000),B*(1),C$(1),C 

R«(1),LIN»(37),LNXT$(40),F$(14),S«(37) 

,FT«(14),LP(500),TT$(40),X$(5) 

130 BKSP=126:RTN=155:SPC=32!B*=CHR$(12 

i)!CR*=CHR*(20) 

135 T$="":L«=""!LP(0)=0 

140 CHAR=1 

150 LN=1 

160 LIN*=" 

":S$=" 

n 

170 OPEN #1,4,0, "K!" 

180 HIID=36 

185 POKE 752,0 

190 V=2:H=2 

200 POSITION 2,0:PRINT "SAVE:ctrI-S R 

EVH:ctrl-R LOAD:ctrl-L"; 

210 POSITION 2,1:PRINT LlNt; 

220 POSITION H,V:PRINT " ";B$i 

Main input loop. 

499 REM INPUT LOOP 

500 GET ll,C:C»=CHR»(C) 
520 IF C=RTN THEN C»=CRt 

639 REM BACKSPACE 

640 IF COBKSP THEN 720 



650 IF CHAR<2 THEN L*=":60T0 500 

660 PRINT B»;" "jB*; 

670 CHAR=CHAR-1 

675 IF CHAR<2 THEN 500 

680 L$=L«(1,CHAR-1) 

700 BOTO 500 

719 REM CHK FOR CTRL CHAR 

720 IF C<SPC THEN 2000 

739 REM CHK FOR END OF LN 

740 CHAR=CHAR+1:IF CHAR<LWID OR C=SPC 
OR C=RTN THEN 760 

750 GOSUB 1000 

759 REM ADD TO STRING 

760 L»(CHAR-l)=Ct 

779 REM RETURN 

780 IF CORTN THEN 880 
820 PRINT C» 

840 GOSUB 6000:SL0C=0 
850 CHAR=1 
860 GOTO 500 

879 REM PRINT ON SCRN 

880 PRINT C$i 

899 REM UPDATE SPC PNTER, CHK FOR END 
OF LINE 

900 IF C=32 THEN SL0C=CHAR-1:IF CHAR=L 
HID THEN GOSUB 6000:CHAR=1:SL0C=0:PRIN 
T 

920 GOTO 500 

Subroutine to break line at a space 
and to initialize the next line. 

1000 IF SLOC=0 THEN PRINT :GOTO 1100 

1020 SS=LHID-SL0C-1:F0R J=l TO SS:PRIN 

T B«i:NEXT J 

1040 FOR J=l TO SS:PRINT " "pNEXT J:P 

RINT 

1050 IF SLOC=LEN(L») THEN LNXT$=":GOT 

1100 

1060 LNXT»=L$(SL0C+1) 

1080 L$=L$(1,SL0C) 

1100 GOSUB 6000 

1110 L*=LNXT$ 

1115 LNXT$="" 

1120 PRINT L$; 

1140 CHAR=LEN(Lt)+2 

1150 SLOC=0 

1160 RETURN 



Continental 
Jdventures 



4975 Brookdale Dept. 03 
Bloomfield Hills, Mich. 48013 
(313)645-2140 



Continental Adventures presents three adventures and one graphics game 
for the Atari 400 and 800 computer owner 

The Ghost Tower — Combat with diabolical demons, 16K $16.95 

Town of Derango — Avenging the death of a father, 8K $16.95 

Talisman of Power — A search for the four keys of Gremlock, 16K $18.95 

Super Shape Builder — A graphics game for creating your own pictures. 
Joysticks reqd. 8K $14.95 



Subroutine to process command 
codes. 

1999 REM PROCESS CTRL CHAR 

2000 V=PEEK(84):H=PEEK(85) 
2050 TL=LEN(T$) 

2060 T$(TL+1)=L« 

2070 POSITION 2,0!PRINT S»:PRINT LIN*; 

2100 IF C=18 THEN GOSUB 3000:REH CTL-R 

2200 IF C=19 THEN GOSUB 4000:REM CTL-S 

2300 IF C=12 THEN GOSUB 5000:REH CTL-L 

2400 IF C=17 THEN STOP :REH CTL-Q 

2900 IF TL>0 THEN T«=T$(1,TL) 

2950 GOTO 200 

Subroutine to review entered text. 

2999 REM REVIEH TEXT 

3000 PRINT CL$; 'Press any Vey to pause 
":PRINT LIN$ 

3040 IF LN=1 THEN 3210 
3050 FOR 1=1 TO LN-1 
3055 FOR Z=l TO 20: NEXT Z 
3060 PRINT T$(LP(I-1)+1,LP(I)) 
3070 IF PEEK (7641=255 AND NOT STP THE 
N 3200 

3080 STP=0:POKE 764,255 
3090 VV=PEEK(84) 

3100 POSITION 2,1:PRINT LINij:POSITIQN 
2,0:PRINT "RTNsCont SPC:Stp X:Delet 
e to end "; 

3120 X=PEEK(764):P0KE 764,255 
3130 IF X022 THEN 3160 
3140 POSITION 2,0:PRINT "Delete froi h 
ere to the end of text?"!:GET ll,X:IF 
X089 THEN 3100 

3150 LN=I+1:L$="":CHAR=1:SL0C=0:T«=T»I 
1,LP(LN-1)):TL=LEN(T*)!G0T0 3000 
3160 IF X=12 THEN 3190 
3170 IF X033 THEN 3120 
3180 STP=1 

3190 POSITION 2,VV:P0KE 764,255 
3200 NEXT I 

3210 X=LP(LN-1)+1:IF X<=LEN(T*) THEN P 
RINT T»(X); 

3220 H=PEEK(85):V=PEEK(84) 
3230 RETURN 

Subroutine to save text to disk or 
tape. 

3999 REM SAVE TO DISK/TAPE 

4000 POSITION 2,0:PRINT S$i:POSITION 2 
,0:PRINT "Save to Tape or Disk? (T/D/E 
SO "I 

4020 GET «1,X 

4030 IF X=27 THEN 4400 

4060 IF X=84 THEN 4200 

4070 IF X068 THEN 4000 

4080 POSITION 2,0:PRINT S$;:POSITI0N 2 

,0: PRINT "File Naie: ";: INPUT F$ 

4085 IF F$(1,2)<>"D:" THEN FT$="D:":FT 

«(3)=Ft:F»=FT$ 
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4090 POSITION 2,0:PRINT "Insert disk a 

nd press RETURN' ;:6ET tl,X 

MOO OPEN ♦2,8,0,F»!60TD 4210 

4200 POSITION 2,0:PRINT "Start tape re 

corder and press RETURN";:6ET lij 

4205 OPEN 12,8,0, "C:" 

4210 PRINT I2;LN:PRINT I2!SL0C:PRINT I 

2; CHAR 

4220 FOR 1=1 TO LN-1 

4230 PRINT #2;T«(LP(I-1)+1,LP(I)) 

4240 NEXT I 

4250 IF CHAR>1 THEN PRINT «2;T$(LP(LN- 

1)+1) 

4300 CLOSE 12 

4400 RETURN 

Subroutine to load text from disk or 
tape. 

4999 REH LOAD FROH DISK/TAPE 

5000 POSITION 2,0:PRINT S$j:POSITION 2 
,0!PRINT "Load froi Tape or Disk? (T/D 
/ESC) '; 

5020 GET #1,X 

5030 IF X=27 THEN 5400 

5060 IF X=84 THEN 5200 

5070 IF X068 THEN 5000 

5080 POSITION 2,0!PRINT S$;:P0SITI0N 2 

,0:PRINT "File Naie: ";:INPUT F» 

5085 IF F«(1,2)<>"D:" THEN FT$="D:":FT 

«(3)=F«:F»=FT* 

5090 POSITION 2,0:PRINT "Insert disk a 

nd press RETURN"5:6ET tl,X 

5100 OPEN I2,4,0,F*!G0T0 5210 

5200 POSITION 2,0:PRINT "Start tape re 

corder and press RETURN";:6ET «1,X 

5205 OPEN 12,4,0, "C:" 

5210 INPUT I2;LN! INPUT #2;SL0C: INPUT t 

2; CHAR 

5215 T$="" 

5220 FOR 1=1 TO LN-1 

5230 INPUT l2,TTt:T$(LEN(Tt)+l)=TT$ 

5240 LP(I)=LEN(T$) 

5250 NEXT I 

5255 TL=LEN(T*):L$="" 

5260 IF CHAR>1 THEN INPUT l2,TTt:T$(LE 

N(T«)+l)=TT«:LP(LN)=LEN(Tt)!L«=TT» 

5300 CLOSE 12 

5350 80SUB 3000 
5400 RETURN 

Subroutine to add finished line to 
the text string. 

5999 REN ADD LN TO TEXT STRING 

6000 T$(LEN(T«)+1)=L« 
6080 LP(LN)=LEN(T$) 

6100 LN=LNfliLP(LN)=LEN(T*) 
6150 L$="" 
6200 RETURN 




The aliens have swept undefeated across the galaxy. 
You are an enterprising star ship captain — the final 
defender of space. 

As the aliens attack, you launch a deadly barrage of 
missiles. Flankers swoop down on your position. 
Maneuvering to avoid the counterattack, you 
disintegrate their ships with your magnetic repellers. 

As your skill improves, the attackers increase their 
speed. And as a last resort, the aliens use their 
invisible ray to slow the speed of your missile 
launcher. 

GALACTIC CHASE provides Atari owners with the 
most challenging one or two person game in the 
galaxy. 



® 



A 

ATARI 

Atari 400/800 16k. Written in machine language. Requires joysticks. 

Payment: Personal Checks — allow three weeks to clear. 

American Express, Visa, & Master Charge — include all numbers on card. Please include phone 
number with all orders. 24.95 for cassette or 29.95 for disk plus 2.00 shipping. Michigan 
residents add 4%. 

Check the dealer in your local galaxy. Dealer inquiries encouraged. 

Galactic Chase © 1981 Stedek Software. 



SPECTRUM 

COMPUTERS 



Dept S. 
26618 Southfield 
Lathrup Village, Ml. 48076 
(313) 559-5252 
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HICROTEXT 1.0 
S-eO VERSION 

BY JON R. VOSKUIL 
10/81 



XXXXXXXXXXXXXXXXXXXXXXXXX 
10 CLSt PRINT CHRt(23) 
20 PRINT 9198, "N I C R T E X T 1.0' 
30 PRINT 9462, 'BY JON R. VOSKUIL' 
40 PRINT J640, "(C) 1981 SOFTSIDE PUBLICATIONS" 
30 FOR I'l TO lOOOi NEXT Z 
Initialization. 

99 ' INITIALIZATION 

100 CLS 

110 CLEAR 30000 
115 DEFINT A-Z 
120 DIN LKSOO) 

130 BKSP-Bi RTN-131 SPC>32i CLR-31i B«>CHRII8)i CR«-CHR«(140) 
140 CHAR'l 
143 CUI>CHR«I9S) 
150 LN-1 
180 LNID>&2 
190 P'128 

200 PRINT 90, "SAVEi CLEAR-S REVIEHi aEAR-R 

LOAOi CLEAR-L" 

210 PRINT9 64, STRIN6((63,"-")| 
220 PRINT 8P,'") 

Main input loop. 

499 ' INPUT LOOP 

500 PRINT CU«| 

505 C««INKEYIi IF C*>"" THEN 305 ELSE C'ASCIC*) 
520 IF C«RTN THEN CI>CRt 

639 ' BACKSPACE 

640 IF C-BKSP THEN IF CHAR<2 THEN 505 ELSE PRINT B»|BI|i CHAR-CH 
AR-li L«ILN)«LEFT«(Lt(LN), LEN(L((LN))-l)i 80T0 500 

719 ' CTRL CHARACTER 

720 IF C-CLR THEN 2000 

739 ' END OF LINE 

740 CHAR'CHAR+li IF CHAR-LMID AND COSPC AND CORTN THEN 60SUB 1 
000 

759 ' ADD TO STRIN6 

760 LI(LN)>L«(LN)+C« 

779 ' RETURN 

780 IF C=RTN THEN PRINT B$;C«: LN=LN+1: L«(LN)=": SL=0! CHAR=l! 
BOTO 500 

879 ' PRINT ON SCREEN 

880 PRINT BliCt; 

899 ' UPDATE SPC POINTER, CHK END OF LINE 

900 IF C032 THEN 500 ELSE SL=CHflR! IF CHAR=LI(ID THEN LN=LNtl: L 
$(LN)=": CHAR=1; SL=0: PRINT 

920 60T0 300 

Subroutine to break line at a space and to initialize 
ttie next line. 

999 ' JUSTIFY AND INCR LINE 

1000 IF SL-0 THEN PRINTi 6DT0 1100 

1020 SS-LHID-SLi FOR J>1 TO SSi PRINT B«|i NEXT 

1040 PRINT STRIN6»(SS,32)|iPRINT 

1050 IF SL>LMID-1 THEN 1100 

1060 LtaN^D- RIGHTS (L*(LN), LHID-1-SL) 



1080 LKLN)- LEFTKLtILN), SL-1) 

1100 LN-LNM 

1120 PRINT L((LN)|CUt| 

1140 CHAR>LEN(LtlLNI)t2 

1150 SL-0 

1160 RETURN 

Subroutine to process command codes. 

1999 ' PROCESS CTRL CHARACTERS 

2000 P-PEEK(16416) * PEEK 1 16417) 1256 - 153601 'CURSOR PSN 
2020 Ct-INKEY«i IF Ct-"' THEN 2020 

2030 C-ASC(C») 

2100 IF C-82 THEN BOBUB 3000i BOTO 200i 'REVM 

2200 IF C>83 THEN 60SUB 4000i BOTO 200i 'SAVE 

2300 IF C-76 THEN BOSUB 5000i BOTO 200i 'LOAD 

2400 IF C>81 THEN STDPi 'BUIT 

2800 P-P-lt SOTO 200 

Subroutine to review entered text. 

2999 ' REVIEN TEXT 

3000 CLBi PRINT9 21, "PRESS ANY KEY TO PAUSE'i PRINT BTRIN6t(63, 
•-") 

3040 IF LN-1 THEN 3210 
3050 FOR I«l TO LN-1 
3055 FOR Z>1 TO SOi NEXT Z 
3060 PRINT Ltd) 

3070 IF INKEYt*'" AND NOT STP THEN 3200 
3080 STP*0 

3090 PP-PEEK(16416) * PEEK (1 6417 )t256 - 15360 
3110 PRINT9 0, "ENTERi CONTINUE SPACEBARi STEP 1 LINE Xi 
DELETE TO END "| STRIN6«(63,"-")| 
3120 XI-INKEYIi IF X«>'" THEN 3120 
3130 X>A8C(X«)i IF XOBB THEN 3160 

3140 PRINT9 0, "DO YOU HANT TO DELETE FRON HERE TO THE END OF TH 
E TEXT? (Y/N) "I 

3145 X«>INKEY«i IF XI-"" THEN 3145 
3148 IF X«<>"Y" THEN 3110 
5150 LN-I+li L«(LN)«""i CHAR-li SL>Oi BOTO 3000 
3160 IF X-13 THEN 3190 
3170 IF X032 THEN 3110 
3180 BTP-1 
3190 PRINT 9PP,"| 
3200 NEXT I 
5210 PRINT L«(LN>| 

5220 P>PEEK(16416) * PEEK ( 16417) t2S6 - 15560 
5250 RETURN 

Subroutine to save text to disl( or tape. 

5999 • SAVE TO DISK/TAPE 

4000 PRINT864,STRIN6I(65, ■-')}■ PRINT9 0,STRIN6l(63,32)}i PRINT9 

0, "SAVE TO TAPE OR DISK? IT/D/CLEAR) "i 
4020 Xt>INKEY«i IF H'" THEN 4020 
4040 IF X«-CHR«(CLR) THEN 4220 
4050 L«(0)>STR«ILN) +STR«(10000m»1004CHAR) 
4055 PRINT9 0, STRIN6t(3S,32)| 
4060 IF X»«"T" THEN 4190 
4070 IF XIO'D" THEN 4000 
4080 PRINT9 0, "n LINEINPUT "FILE NANEi "|F» 
4090 PRINT9 0, "INSERT DISK AND PRESS ENTER. "i PRINT 8TRINe«(63, 

409S IF INKEY«<>CHRt(15) THEN 4095 
4100 0PEN"0",1,F« 
4140 FOR I«0 TO LN 
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4130 PRINTIl, L«(I) 

4160 NEXT 1 

4170 CLOSE 

4110 SOTO 4220 

4170 FRINT9 0, 'START RECORDER AND PRESS ENTER. 'i 

41« IF INKEY«<>Clffl«(l3) THEN 4195 

4300 FDR I>0 TO LN 

4203 FRINTI-1, CHR$(34)|L$(II|CHRt(34l 

4210 NEXT I 

4220 P-P-li RETURN 

Subroutine to load text from disk or tape. 

4999 ' LOAD FROM DISK 

5000 PRINTa64, STRIN6«(63,--')|i PRINTa 0, STRINei(63,32)|i PRIN 
Ta 0, 'LOAD FROM TAPE OR DISK? (T/D/CLEAR) 'i 

3020 X»-INKEy»i IF X««" THEN 3020 

5040 IF tt>CHR«(CLR) THEN 3250 

3045 PRINTa 0, 6TRIN8«I40,32)| 

5050 IF XI»"T' THEN 3210 

5040 IF XIO'D' THEN 5000 

5070 PRINTa 0,"")i LINEINPUT "FILE NAHEi 'jF$ 

5080 PRINTa 0, "INSERT DISK AND PRESS ENTER. "i PRINT 8TRIN8»(63," 

-•)| 

5065 IF INKEYI<>CHR«(13) THEN SOBS 

3090 OPEN"r,l,F« 

5110 INPUTIl, L«(0) 

5120 60SUB 5290 

5130 FOR >1 TO LN 

5140 LINEINPUTIl, LIU) 

3170 NEXT I 

51B0 CLOSE 

3200 60T0 3230 

3210 PRINTa 0, "START RECORDER AND PRESS ENTER.") 

3215 IF INKEY$<>CHR«(13) THEN 5215 

5220 INPUTi-1, LI (0)1 60SUB 5290 

3230 FOR I«l TO LN 

3235 INPUTI-1, Hd) 

5240 NEXT I 

5250 BOSUi 30001 RETURN 

3290 L»>LIIO)t L*LEN(L«) 

5300 CHAR- VAL(RIBHT«(Lt,2))i Lf>LEFTt(L),L-2) 

5310 SL« VAL(RISHT«(L»,2))i L»-LEFT»iL»,L-5) 

5320 LN-VAL(L«) 

5330 RETURN © 



TRS-80^ 


One Liner 




- 


! CLS:I=9B7;F=ie 


B$=CHRJ(]91):B=32:F0RS=1T0 


9E9iFRINT.iI 


D$;; PRINT 


J!+F.Di!PRINT557 


,3:;I = !tRNBi3i-2:C=S+1536!i 


iFFEEK(Ci=3 


2hN0PEEK(C 


+l)=32C=PEEKil44 


iO):PRINTiB,CHRi(i53lCHR$il 


6AliilFC=32 


B=B-S:NEn 


EL5EIFC=64E=E:rli 


NEnEL3EF=F-.0l;NEnELSEPR 


NTSE."CRAEt- 


1 M " , 


?!IkE KENEKES 








BO? 139 








HfiRRiSvILLE, PA, 


1 6033 







TRS-80^ One Liner 

This program allows the user to create sine wave pat- 
terns on the screen. Press the^^ key to decrease the 
frequency of the wave. Press .^™ to increase the fre- 
quency. Press ^ to increase the amplitude of the wave, 
and press sl^ to decrease the amplitude. The CLEAR 
key will clear the display and continue the pattern on the 
left side of the screen. All keys will repeat. 



F2R?=v'3i27; IFH;O,A-';:NEAT;30TC£LSEIFA/!,A=l:NE.= T!5DT0ELStY=25 
5?:NT(EIN(F«X)»23hSETiX = Y;!!«=PEEK!H400};:FW=i4,F=F-.0::NEn:S 
■:ELSE!F|i:=32,F=F+.O!:NEF!GCT0ELi£iFH=B,fl=A+,01:NFni30T0ELSF:F 

= 14, A=A-,Ul ;NE?';GO'UELSEI^i'!=2,CLS;50''OEL3E"Fi(T:bOTO 



3ARV liiEXLER 
33 HARTIN-DR'VE 

pcughkee"s:e. KV. i2t0 



I 9 

lU •■ I 

f! Ef < 

It I! . ■ 



you AKe A^ifoL, > 

i4/MeWMMeK.IF^»U THINK 
tt^SX WELi_-r>tJ|«HT.'FOI? 




» 



LFENSTEIN 



by Silas Warner 



For Apple M or Apple II Plus with 48K, 
$29.95 



MUSE 



sonwARE" 



330 N. CHARLES STREET 
BALTIMORE, MD 21201 
.(301)659-7212 



Coll o> wiiio l« intornolioo orxJ 
■he nam« o* your neoiesi MUK etc 
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December 1-3 

Legal Info 

Shoreham Hotel, Washington, DC 

This conference and exposition will cover 
the automation of legal information 
systems. Attorneys who use computers, or 
are interested in doing so, are invited to 
attend this computer expo geared to their 
needs. 

Contact: Legal Info, 1730 N. Lynn Street, 
Suite 400, Arlington, VA 22209, 
(703)521-6209 

December 1-4 

Computer Network Design and Protocols 
Washington, DC 

This course, presented by ICS (Integrated 
Computer Systems), will focus on the 
fundamentals in computer communication 
network concepts, implementation, and 
technology. The practical aspects of 
network design, interfacing, protocols, 
and packet switching will be emphasized. 
Contact: Ruth Dordick, ICS, 3304 Pico 
Blvd., P.O. Box 5339, Santa Monica, CA 
90405, (800)421-8166, California residents 
(800)352-8251 

December 2-4 

Speech Coding 

Jack Tar Hotel, San Francisco, CA 

This seminar on various synthesized voice 
techniques will focus on the basic 
elements of digital speech processing. 
Topics will include analog speech signals 
and their processing; Fourier Transform 
and the speech time series; analog/digital 
and digital/analog conversion of speech 
signals; filtering applied to digital 
processing of speech signals; speech forms 
on Fourier Transform, correlation, and 
autocorrelation; arithmetic requirements 
for speech processing apphcations; and 
the future of voice applications. 
Registration fee for this seminar, led by 
William F. Adiletta, is $650. 
Contact: Maria McCabe, McGraw-Hill 
Conference Center, 1221 Avenue of the 
Americas, Room 3677, New York, NY 
10020, (212)997-4853 or (212)997-4930 

December 2-4 

Data Processing and Paperwork 

Reduction 

Locations below 

Three seminars are planned to be held this 
month on implementation of Public Law 
96-511, the Paperwork Reduction Act of 
1980. Each is scheduled to be a one-day 
meeting to provide a thorough update on 
the impact of this new piece of legislation 
for data processing managers and 
computer specialists. This seminar will 
give you an opportunity to find out how 
the new law will affect field organization 
and computer operations. Dates and cities 
are: 



28 



December 1981 



December 2, Seattle, WA 
December 3, San Francisco, CA 
December 4, San Diego, CA 
Contact: Seminar Coordinator, U.S. 
Professional Development Institute, Inc., 
12611 Davan Drive, Silver Spring, MD 
20904, (301)622-0066 

December 7-9 

National Conference on Computer 
Graphics: Tools for Productivity 
Washington, DC 

The theme of this conference is centered 
around exploring the application and 
implementation of computer graphics 
within the overall framework of visual 
information. Three days will be devoted 
to the latest technological developments, 
trends and methods of utilizing computer 
graphics in business, government, 
engineering, finance, education and other 
fields. A computer graphics equipment 
and services demonstration, plus case 
histories in implementing computer 
graphics in corporate and government 
organizations, will conclude the 
conference. 

Contact: Conference Manager, U.S. 
Professional Development Institute, Inc., 
12611 Davan Drive, Silver Spring, MD 
20904, (301)622-0066 

December 9-11 

1981 Winter Simulation Conference 

(WSC '81) 

Peachtree Plaza, Atlanta, GA 

This conference is centered around 
papers, panel discussions, tutorials on 
discrete and combined simulation and 
modeling. WSC '81 will be organized into 
tutorial, methodology, and application 
sessions. 

Contact: Claude M. Delfosse, CACI Inc., 
1815 N. Fort Myer Drive, Arlington, VA 
22209, (703)841-7800 

December 14-15 

Software Quality Assurance and- 
Configuration Management 
Copley Plaza Hotel, Boston, MA 

This new seminar is designed for both the 
vendor and the users. Topics include 
defining the roles of Software Quality 
Assurance (SQA), Software Quality (SQ) 
within the business structure, SQA and 
SCM management tools, U.S. Department 
of Defense SQA requirements, and 
improving your SQA and SCM 
performance. Registration fee is $500. 
Contact: Maria McCabe, McGraw-Hill 
Conference Center, 1221 Avenue of the 
Americas, Room 3677, New York, NY 
10020, (212)997-4853 or (212)997-4930 

December 16-18 

The 20th IEEE Conference on Decision 

and Control (CDC) 

Vacation Village Hotel, San Diego, CA 

This annual meeting of the Institute of 
Electrical and Electronics Engineers 
(IEEE) Control Systems Society is the 
basis of CDC. It will include sessions plus 
tutorials and presentations on all aspects 
of theory and applications which involve 
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decision, control, and adaptation. Topics 
will involve linear and nonlinear system 
theory, large scale theory system, stability 
theory, decentralized control, estimation, 
identification, signal processing, and 
control systems. 

Contact: The Institute of Electrical and 
Electronics Engineers, Inc., 445 Hoes 
Lane, Piscataway, NJ 08854 

December 25 

Merry Christmas 

Sponsored by the Editorial Munchkins at 
SoftSide magazine, this meeting is 
scheduled for the annual arrival of Saint 
Nicholas, alias Santa Claus. The one-day 
session is especially welcomed by 
computer orphans and dreaded by 
computer widows. Featured will be toys, 
games (adventure, space and war), what- 
nots for everyone, and more computer 
equipment for the person that used to be 
part of the family and is now part of the 
computer peripherals. Special requests will 
be received at the address below, but 
should not arrive any later than December 
20th as the elves must generate the mailing 
labels on their ELF-80 system, powered 
by hamsters on a treadmill. 
(Unfortunately, the hamsters have been 
out on strike due to the union's contract 
negotiations, and updating the mail list is 
a slow and tedious process.) 
Contact: Santa Claus, Christmas Tree 
Lane, North Pole, Planet Earth, Solar 
System, Milky Way Galaxy 

December 28-30 

Computer Modeling of Linguistic Theory 
Grand Hyatt Hotel, New York, NY 

Sponsored by the Association for 
Computational Linguistics (ACL), three 
sessions will encompass computer 
modeling of linguistic theory combined 
with the annual meeting of the Linguistic 
Society of America. Readings of 
contributed papers will cover part of the 
sessions with the main focus placed on 
new models for grammars and new 
strategies for phrasing. 
Contact: Stan Petrick, IBM Research 
Center, P.O. Box 218, Yorktown Heights, 
NY 10598 



If you or your organization are 
sponsoring or know of an event you 
think would be of interest to 
SoftSide readers, please send 
complete information to: 

SoftSide Publications 

Calendar Editor 
6 South Street 
Milford, NH 03055 

Be sure to include complete 
information concerning dates, 
location, subject matter and a 
contact name, address, and phone 
number. 




TITAN 

by William Morris and John Cope 

Titan is an outer space mining 
simulation requiring a 24K (without 
disk) or 32K (with disk) for the Atari 
with one joystick; a 16K Apple with 
Applesoft and game paddles; or a 16K 
TRS-80®. 




Note: The Atari version listed here is 
divided into two parts, enabling it to 
run in 24K tape or 32K disk. The first 
part merges the second with itself. This 
requires that the second part be 
LISTed to tape or disk. If using tape, 
record the second part immediately 
after the first. 

Those who subscribe to Atari DV 
will also receive an all-in-one version 
requiring 40K. Apple DV subscribers 
will receive an additional Hi-Res ver- 
sion requiring 48K. 

The year is 2050. The Solar Mining 
Authority, in its ever-expanding quest 
for raw material, has finally decided to 
entertain bids from different corpor- 
ations for the exclusive mining rights to 
Titan, one of the moons of Saturn. 

In an attempt to ensure maximum 
efficiency from the operators of the 
Titan concession, the Solar Mining 
Authority has decided to permit up to 
four companies to operate on Titan us- 
ing Probationary License Permits, for 
a period of one Earth year. 

Sometime during the first quarter of 
the second year, an on-site inspection 
of the competing companies will result 
in one of them being awarded exclusive 
authority to mine the valuable 
Dilithium 3 crystals peculiar to Titan. 
The stakes are high; the risk and ex- 
pense factors, even by 21st century 
standards, are enormous. The reward, 
however, makes the gamble more than 
worthwhile: for your company, fan- 
tastic profits; for you, possible pro- 
motion to the parent corporation's Board 
of Directors, as well as immense finan- 
cial gain! Failure, of course, carries its 
own reward. 

Having decided to accept the post of 
Superintendent of your corporation's 
Titan operation, you will be assigned 
one of four possible base sites: Ac- 
taeon, Bellona, Chimera, or Daedalus. 
As the highest ranking on-site 
representative of management, you 
must make the initial decisions concern- 
ing budgetary allotment. The only 
mandatory purchase is one power 
plant; all of the remaining choices are 
subject to your final authority. What 
about drilling rigs and robot miners? 
Drill rigs are required for vertical min- 
ing, while robominers carry out 
horizontal digging. Will you invest in 
an on-site Research and Development 
Station? Investing in this category of 
equipment can increase the Ukelihood 
of finding the Dilithium 3 crystals. 
How many Meteor Deflection Shields 
will be installed to protect your com- 
pany's investment from the ever- 
present danger of stray asteroids from 
the rings? Refineries are needed, of 
course, to process the Dilithium 3 once 
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you have discovered a vein of this 
elusive mineral. Without refineries, 
your profits will suffer greatly. Finally, 
energy consumption is a key factor on 
your Titan operation. Having an extra 
energizer unit or two could be very 
helpful! Remember: All of these fac- 
tors are interrelated, with careful tim- 
ing and meticulous attention to detail 
being necessary if the subsequent 
stages of your operation are to pros- 
per. Costs fluctuate with increases 
or decreases of the availability of 
equipment. 

Once you have made your initial 
budgetary decisions, you enter the 
management phase of your undertak- 
ing. Your decision concerning the 
number of surplus laborers (Labor 
Pool), the length of their work shifts, 
the nature of the Recreational 
Facilities, as well as the nature of the 
Bonus Schedule and Safety Program, 
must tread the path best suited to 
achieve your goals. For example, cave- 
ins are a frequent problem on Titan 
because of gravity fluctutations caused 
by Saturn. Investing in safety measures 
could pay dividends. Your decision to 
pay your workers well will have 
positive results that are quickly evi- 
dent. On the other hand, too much 
generosity in the area of labor relations 
could hamper the profit picture. The 
ultimate goal is to increase your effi- 
ciency; however, be advised that there 
are occasions when you will have to 
sacrifice efficiency for greater output. 
This knowledge can only be gained 
from "hands-on" experience. No one 
said the job was going to be easy! 

Having set your policy for the cur- 
rent work cycle, your attention must 
now shift to the actual task of locating 
and mining the precious Dilithium 3 
crystals. Once located at their 
designated mining strikes, your 
workers will await your decisions as to 
drilhng locations. A unique screen con- 
troller will allow you to carefully 
monitor and direct the drilling phase 
and subsequent use of the robot 
miners. Through the careful interpre- 
tation of the Assay data beamed back 
to you, the number of drilling sites can 
be kept to a minimum. Again, the 
deployment of the robot miners will 
reflect your ability to carefully monitor 
on-site reports. Both of these latter 
utilities are prodigious users of power; 
but then, you will have thought of that 
when you made your initial decisions 
regarding power plant purchases or in- 
vestment in Research and Development 
units. Right? 

At the end of each work-cycle period 
you must decide, once again, on the 
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budgetary decisions for the following 
month. Your experience during the 
previous cycle(s) should enable more 
efficient judgments as you progress. It 
is for this reason that you may view a 
summary of your decisions and ac- 
complishments in the Monthly Report. 
Your statement will also reflect your 
financial capabilities for the next turn. 

One minor last detail: As you will 
remember from an earher part of this 
briefing, there is a periodic danger of 
damage to your operation from 
meteoroids. It will be your task to use 
the Meteor Deflection Shields to pre- 
vent any on-site damage to your cor- 
poration's property. Of course, these 
units require substantial amounts of 
power; but then, you have carefully 
planned for this contingency. Haven't 
you? 

Good luck and good mining! 



On Playing Titan 

One of the primary goals in design- 
ing Titan was to make it as independ- 
ent of the keyboard as possible. For 
the Apple, this meant the use of the 
game paddles, and for the Atari, the 
use of the joystick. As the TRS- 
80® does not allow for either capabil- 
ity, a joystick-emulator was set up 
which utilizes the arrow keys for the 
equivalent left-right, up-down joystick 
actions, and the ENTER key for the 
button function. Use of this technique 
allows both the Atari and TRS- 
80® versions to play identically in 
handling input from the player. The 
Apple version differs in that the use of 
game paddles required some modifi- 
cation of the input routines and one 
change to the graphics display. To 
compensate for this difference, promp- 
ting has been included which is ac- 
tivated on the first player's initial turn. 
The instructions for this have been in- 
cluded in the body of the program. 

Some effort has been made to allow 
a comparison of the different versions 
of BASIC being used. For example, the 
TRS-80® version has been set up so the 
string and array handling is almost 
identical to that of Atari BASIC. The 
Apple version has been designed to 
reflect the more conventional 
Microsoft procedures in string and ar- 
ray handling. This feature might prove 
of interest to those who are interested 
in translations. 

Joystick Use — (Please use the ap- 
propriate arrow key and the ENTER 
key for the TRS-80® version.) The 
joystick routine utilizes the up-down, 



left-right registers to permit viewing of 
possible choices and the button to 
register a final input. It is used in all of 
the key sections of the program. 

Game Initialization — When in- 
dicating the number of players and the 
level of difficulty, simply use the left- 
right joystick capability to move the 
appropriate number and press the but- 
ton to finalize your input. 

Equipment Management and Labor 
Relations Phases — Toggling the 
joystick to the left or right indicates 
your decision to increase or decrease 
within a category, with the button 
registering this decision. Upward or 
downward action on the joystick 
moves you through the different 
categories. 

Mining Phase — Left or right action 
on the joystick will allow you to move 
between the drill rig or robominer op- 
tions, while upward toggling will per- 
mit you to consider ending this phase 
of the simulation. In each case pressing 
the joystick button registers your deci- 
sion. Be aware, however, that the 
robominers cannot be activated unless 
you have at least one drill rig on site. 

Once you have decided upon a drill 
rig or a robominer, you may move it to 
the drill site by using the joystick. Press 
the button when you have decided that 
you have the equipment on site. 
Downward toggling of the joystick per- 
mits drilling or the movement of the 
robominer down the shaft to occur. In 
the latter case you also have an upward 
movement capability within the drill 
shaft and lateral mining ability once 
the button has been pressed. Be aware 
that pressing the button during lateral 



mining terminates the robominer cur- 
rently in use. 

The TRS-80® version differs only 
slightly during the mining phase, in 
that pressing the appropriate arrow key 
starts movement in that direction. This 
movement can be suspended by press- 
ing any key, and resumed in the 
desired direction by pressing the cor- 
rect key. 

Monthly Report — Pressing the 
joystick button will terminate this sec- 
tion as you move on to decisions for 
the next month's mining operations. 



Variables 



A$: Name of player's base on Titan. 

A: Drill Rig array. 

AC: Action flag indicating decision to 

buy or sell. 

C: Cost of items purchased during 

Equipment phase, or the price of 

worker-related decisions. 

C2: Choice flag which is set during 

the Labor Management phase. 

CH: Choice variable. 

DA: Month of the year. 

EF: Efficiency rating. 

EN: Energy consumption. 

EQ$: Equipment. 

EX$: Extras. 

FF: Efficiency counter. 

HO: Drill hole(s). 

K: Player's variable table. 

LV: Level of play. 

P: Current player. 

PL: Total number of players in 

simulation. 



R, RA, RB: Random numbers. 
UL, UN, UY, UZ: Sound variables 
for pitch, duration, etc. 
VI: Horizontal location of dilithium. 
V2: Vertical location of dilithium. 
VE: Number of veins located. 
WC$: Worker related items. 
YE: Current year. 

All other variables not specifically 
identified in the range of X-Z are 
counters or conditional flags. 

Variables unique to the Apple version 

S$: Title display for each phase. 
SC: Screen color used in Machine 
Language routine to fill the graphics 
screen with a specified color. 
WB: Color of drill rig or robominer 
shape. 

Variables unique to the Atari version 

J0-J7: Line numbers. 



Variables unique to the 
TRS-80® version 

1$: Keyboard scan. 

JB$: Packed graphic string of blanks 

to erase robominer and drill rig. 

JC$: String variable to equate with 

either JDS or JR$ in graphic display. 

JD$: Packed graphic string of drill 

rig prior to being rooted on site. 

JR$: Packed graphic string of 

robominer. 

JF$: Reverse screen Machine 

Language routine. 

JM$: Sound routine string. 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 
know is in... 



ALL 

ONLY 

$19.95 

plus S1 shipping 




INCLUDES; 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 






VISA 
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A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



Apple Version 




Initialization and title display. 


d^AV^^Vii^^^ 


JA nv^ niJMi lyfd dil ^AAilt unA/ 


I^B ^^H *^K 


p ^m 


1 ■ 


10 DIM Ctl2),K(4,U),EQ$(7),MCI( 




inniK^ 


mBKSn>ip^ 


.UA;y.:DKsmMm 


RHA ' onAulsUwftKrihllL r/ j ^I^^^^^^^^^^H 
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■MaM tj 
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.,..::;:•-■;■..■■: ■:.'"-Siiii(S 


J goSUB 30000 


V 




Br& " "* 


ymMmi:.:l 




20 HOHE 1 INVERSE i FOR X ■ 1 TO 


■ K 


'■ ■■ 1 


^B^gT J 


g^^^y^iggj 




5i READ Z»i FOR Y » 22 TO 4 STEP 


Jlj ; ffi 


Hs^*' 


IBISll;;- 




- ii VTAB Yi HTAB Zli PRINT 


i- •-::.. i 


rlsssfci:/..:| 


w^ 


g^^pqeagr^ 


W:ii&. 


Zt|i FOR Z > 1 TO iOi NEXT i 


V 


|=-^i-''v"'i 




w^ft^^^Snf 




VTAB Yi HTAB Zl> PRINT CHR« 


'■ n 


:l , . i 




1 liSliiiii ::'.'■; i 




(32)1 NEXT 1 VTAB Yi HTAB Zl 


f ■ ■ -1 


H^^^s 


1 j|ppsBst- 1 




1 PRINT Zli FOR XI « 15 TO 


■ ■ . 1 


■Bpj^if' 


1 ': i 




STEP - O.Sl POKE 768, XI i POKE 


J •■ ^ : ■:;■■ |j,..5j:;|;i||:||||lt^'^^^ 


'^^H 


769,31 CALL 770i NEXT 
30 Zl - Zl t li NEXT 


■ ■ ■ M 


fll 


^" 1 1 IT; C '-■.'* : 


■ 


40 1 VTAB 23i HTAB 7i PRINT '(C) 
HH. MORRIS ti J. COPE 1981') i 




^^H 




1 


ND iHWilSTOT' n^H 


NORHAL iUN ■ OOiUL ■ 29i SOSUB 
300801 60SUB 40010 




^^ 




50 FOR Z > 1 TO 4i READ ZliAKZ) _ 




> Zli NEXT 1 FOR Z ■ 1 TO 7 


ER I'll NORHAL i PRINT Zp PRINT 


FOR Z ■ 1 TO 3i SOSUB 30010 


1 READ ZtiEBKZ) « Z*i NEXT 


" "J! INVERSE 1 PRINT 'COHHA 


1 NEXT 1 TEXT i HOHE 


1 FOR Z ■ 1 TO 7i READ ZtiHC 


NDS BASE'ii NORHAL i PRINT ' 


1005 IF DA > 1 AND P « 1 AND YE ' 


»(Z) « Z$i NEXT 1 FOR Z « 1 TO 


'(A«(Z)i SOSUB 300201 NEXT 


2050 THEN SOSUB 1015 


4i READ Z«iEXt(Z) ■ Z«i NEXT 




1010 SOTO 1030 


iZI ' "1 FOR Z » 1 TO 39iZ$ 


140 VTAB 21 1 HTAB 9i PRINT 'PRES 


1015 TEXT 1 HOHE i FOR XI » 22 TO 


> Z« t CHRt (32)1 NEXT i SOSUB 


S ■)! FLASH 1 PRINT "BUTTON" 


1 STEP - li VTAB Xli HTAB 9 


9000 


|i NORHAL 1 PRINT ' TO BE6IN 


1 PRINT Sti VTAB Xli PRINT Z 




" 


(1 NEXT 1 VTAB li HTAB 9i PRINT 




150 MAIT - 16286,128 


S» 


Playing parameters. 


160 FOR Z » 1 TO PLiK(Z,6) » liK 


1020 VTAB 5i PRINT 'USE SANE PAD 




(Z,13) - 500!K(Z,14) « lOOiK 


DLE 1 BUTTON TO ENTER'! PRINT 




(Z,15) > Si next i SOTO 300 


1 PRINT "AMD LEAVE A SPECIFI 


100 HONE 1 VTAB 2i HTAB 12! FLASH 


200 X2 ' li VTAB 20i FOR XI " 5 TO 


C CATEGORY."! PRINT i PRINT 


1 PRINT "NELCOHE TO TITAN! 'i 


35 STEP lOi HTAB Xli SOSUB 3 


'SAHE PADDLE 1 DIAL REGISTER 


NORHAL 1 SOSUB 30010! SOSUB 


00201 INVERSE i PRINT X2m SOSUB 


S YOUR"! PRINT I PRINT "DECI 


400201 GOSUB 30010: GOSUB 40 


400101 SOSUB 220! NORHAL i HTAB 


SIGN TO INCREASE OR DECREASE 


020 


Xli PRINT X2|iX2 » X2 Ml NEXT 


NITHIN"! PRINT i PRINT "THA 


110 VTAB 7i HTAB lOi PRINT 'USE 




T CATEGORY.' 


GAHE PADDLE 'ji INVERSE i PRINT 


210 SOTO 200 


1025 PRINT 1 PRINT 'SANE PADDLE 


"ll'ji NORHAL 1 PRINT ' TO'i 


220 X « PEEK ( - 16286)1 IF X ( 


BUTTON IS USED TO'i PRINT 


PRINT 1 HTAB 111 PRINT "SEL 


128 THEN RETURN 


1 PRINT "OFFICIALLY RECORD Y 


ECT THE NUHBER OF"i PRINT i HTAB 


230 NORMAL i POP i RETURN 


OUR TRANSACTION."! VTAB 22i HTAB 


161 PRINT "PLAYERS' 1 SOSUB 4 


300 6DSUB 70001 SOSUB SOOOi FOR 


4i INVERSE I PRINT "PRESS BU 


OOlOi GOSUB 200 


P « 1 TO PLi GOSUB lOOOi NEXT 


TTON 1 TO CONTINUE"! NORHAL 


120 iPL - X2i VTAB 7i HTAB lOi CALL 


1 SOSUB 60001 SOTO 300 


1 HAIT - 16286,1281 PRINT CHRt 


- 958i FOR Z • 1 TO 4i PRINT 




(7)1 RETURN 


CHRt (7)1 NEXT i SOSUB 4001 




1030 HOME 1 FOR X ■ 1 TO 39! VTAB 


Ol HTAB lOi PRINT 'LEVEL OF 


Equipment Management phase. 


ll HTAB Xi PRINT "»"ji VTAB 


■)i INVERSE 1 PRINT 'DIFFICU 




22! HTAB Xi PRINT 't'|i NEXT 


LTY'n NORHAL i PRINT "?'i SOSUB 




iCH ■ liAC « 0iC2 > OiZC > 1 


200ILV « X2 + 4 1 


000 SC ■ 7! 8R 1 60SUB 20000i HOHE 


1035 VTAB 2i HTAB ISi INVERSE i PRINT 


130 HOHE 1 FOR Z ■ 1 TO PLi VTAB 


1 VTAB 22i HTAB 9iS« ■ 'EQUI 


'BASE!')! NORHAL i PRINT ' ' 


Z 1 4i INVERSE 1 PRINT "PLAY 


PHENT NANASEHENT'i PRINT S«i 


)At(P)! PRINT DA)'/l/'|YE|i HTAB 
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33 



31 1 INVERSE I PRINT 'STATUS) 
")i NORNAL I PRINT " '\U?,(i 
)i 80SUB 30030 
1040 FOR X « 5 TO 7 STEP 2i INVERSE 
I VTAB h HTAB ii PRINT Zti NEXT 
I NDRHAL I VTAB ii HTAB li PRINT 
■ESUIPHENT OH 

NED COST' 

1049 Zl ■ 9i VTAB 9i HTAB li FOR 

Z « 1 TO 7i PRINT EQ»(Z)i PRINT 
i NEXT i BDSUB 1065i VTAB ?i 
HTAB 1) FDR Z > 1 TO 7i INVERSE 
: PRINT EQ«(Z)i GOSUB llOOi IF 
CH » 7 THEN Z « CHi SOTO 105 
5 

1050 60SUB 400101 60SUB 1170: 80SUB 
106S> NORMAL t VTAB Zlt HTAB 

li PRINT EDKZVi PRINT iZl « 

Zl + 2 
1055 NEXT I IF CH » 7 THEN CH = 

li SOTO 1390 
1060 SOTO 1045 
1065 VTAB 9i FOR Z2 « 1 TO bt HTAB 

29! PRINT K(P,Z2))i HTAB 36i 
PRINT C(Z2)i PRINT i NEXT i 
VTAB 4i HTAB.15J PRINT "CRE 

DITi "}K(P,13))" "j RETURN 



Subroutine to register paddie 
decision to increase or decrease as 
part of buying and seiiing 
subroutine which foliows. 



1100 IF CH > 7 THEN CH " CH - 7 
1110 NORHAL I VTAB 23 i HTAB li 60SUB 

11301 PRINT 'INCREASE'll NORHAL 

I GOSUB 11501 HTAB 31 i PRINT 

'DECREASE') NORHAL 
1120 RETURN 
1130 IF PDL (1) < 125 THEN FLASH 

)UN « 60) AC « 0) IF ZC THEN 

GOSUB 30050) RETURN 
1140 RETURN 
1150 IF PDL <1) > 124 THEN FLASH 

)AC ■ 1)UN ■ 243) IF ZC THEN 

GOSUB 30050) RETURN 
1160 RETURN 
1170 X « PEEK t - 16286)) IF X > 

127 THEN CH • Z) PRINT CHR$ 

(7)|) GOSUB 40010) SOTO 1190 

1180 RETURN 

1190 IF CH « 7 THEN RETURN 

Buy and Seli routine. Accessed by 
Equipment iManagement and Labor 
Relations phases. 

1200 ZC > 0) GOSUB 1100) GOSUB 40 
020 



1210 y « PEEK ( - 16287)) IF Y > 

128 THEN 80SUB 40020) GOTO 

1240 
1220 60SUB 40010) X > PEEK ( - 1 

6286)) IF X > 127 THEN ZC » 

1) RETURN 
1230 GOTO 1200 

1240 IF C2 « 1 THEN CH » CH + 6 
1250 IF AC ' 1 AND CH > 6 AND K< 

P,6) « 1 THEN 1350 
1260 IF AC « AND CH ■ 8 AND K( 

P,8) > 17 THEN 1350 
1270 IF AC • 1 AND K(P,CH) < 1 THEN 

1350 
1280 IF AC > AND CH > 9 AND K( 

P,9) « THEN 1310 
1290 IF AC « AND KIP, 13) < C(C 

H) THEN 1350 
1300 IF AC ■ 1 THEN K(P,CH) « K( 

P,CH) - 1)K(P,13) " K(P,13) + 

C(CH)) IF CH - 7 THEN KIP, 14 

) ■ KIP,14) - 1 
1310 IF AC • THEN KIP,CH) ■ Kl 

P,CH) + 1)KIP,13) ■ KIP,13) - 

CICH)) IF CH » 7 THEN KIP, 14 

) • KIP,14) + 1 
1320 IF C2 > THEN GOSUB 30040 

I GOSUB 1065) GOTO 1370 
1330 UN > 100) 80SUB 30050) GOSUB 

1510 
1340 GOTO 1370 
1350 IF C2 ■ THEN GOSUB 30060 

) GOSUB 1065) GOTO 1370 
1360 60SUB 30050) GOSUB 1510 
1370 IF C2 THEN CH « CH - 6 
13B0 GOTO 1200 



Labor Relations phase. 

1390 St > 'LABOR RELATIONS')SC > 
4) 6R ) GOSUB 20000) HONE ) VTAB 
21) HTAB 9) PRINT S«) FOR Z ■ 

1 TO 4) 608U6 30030) NEXT )C 

2 « 1) IF DA > 1 AND P ■ 1 AND 
YE * 2050 THEN SOSUB 1015 

1400 TEXT ! HOHE )C2 - 1 
1410 INVERSE > HTAB 15) PRINT 'B 
ASE')) NORHAL ) PRINT ' '(A* 
(P)) VTAB 3) INVERSE ) PRINT 
'KANPOHER')) NORMAL ) PRINT 
' '(KIPfM)}) INVERSE ) HTAB 
29) PRINT 'CREDIT) 'I ) NORHAL 
) PRINT KIP, 13)) GOSUB 30030 
1420 K(P,7) ■ K(P,14) - IKIP,1) t 
LV) - (KIP,2) t LV I 2) - IK 
IP,3) I LV t 3) - IK<P,4) t 
LV I 4) - IKIP,5) » LV t 5) - 
{KIP,6) t LV t 10) 



1430 CI9) «KIP,14>)CI10) » KIP,1 

4) t 2)C(11) > KIP,14) t ZtZ 
112) ■ KIP, 14) t 4iEN > KIP, 

6) I 500 t (11 - LV) 

1440 GOSUB 5000) INVERSE ) VTAB 

5) HTAB 9) PRINT 'EFFICIENCY 
RATE)')) NORHAL ) PRINT KIP 

,15)}) INVERSE ) PRINT 'V 
1450 VTAB 7) PRINT 'CONDITIONS 
SET COST ■ 

) NORHAL 
1460 Zl ■ 9) VTAB 9) FOR Z • 1 TO 

7) PRINT NCIIZ)) PRINT i NEXT 

) 60SUB ISIO) VTAB 22) INVERSE 

) PRINT Zl) VTAB 9) FOR Z ■ 

1 TO 7) INVERSE ) PRINT HCII 

Z)! PRINT 
1470 SOSUB 1100) NORHAL > SOSUB 

40010) SOSUB 1170) IF CH « 7 
THEN Z ■ 7) GOTO 1490 
1480 SOSUB 40020) VTAB Zl) HTAB 

1) PRINT NCIIZ)) PRINT )Z1 • 

Zl + 2 
1490 NEXT ) IF CH - 7 THEN HOHE 

) SOTO 2000 
1500 GOTO 1460 
1510 VTAB 9) FOR Z2 « 1 TO 6) HTAB 

28) PRINT KIP,Z2 + 6)j' "p HTAB 

35) PRINT CIZ2 + 6)) PRINT i 
NEXT ) VTAB 3) HTAB 36) PRINT 

KIP,13)|' ') GOSUB 5000) VTAB 

5) HTAB 25i PRINT EF{) INVERSE 

) PRINT 'X') RETURN 



l\Aining phase and graphics display: 

2000 IF K(P,1) « THEN 3000 
2005 GR )SC « 12) BOSUB 20000)81 

- 'HININ8 OPERATIONS'! HONE 
) VTAB 22) HTAB 111 PRINT SI 
) FOR Z ■ 1 TO 5) PRINT CHRI 
17) I ) NEXT ) BOSUB 40020) TEXT 
) HOHE I IF DA > 1 OR P > 1 OR 
YE > 2050 THEN 2030 
2010 FOR XI > 22 TO 1 STEP - 1) 

VTAB XI) HTAB 11) PRINT SI) 

VTAB XI) PRINT Zli NEXT i VTAB 
1) HTAB 11) PRINT Sli PRINT 
) PRINT 'USE PADDLE 1 TO FOC 
US TRACTOR BEAM ON') PRINT ' 
DRILL RIG OR ROBOHINER. BUTT 
ON 1 LOCKS'! PRINT 'BEAN AND 

CONTROLS DRILL RI8 HOVEHENT 

N 
■ 

2015 PRINT 'ROMNINERS HILL NOT 
ACTIVATE NITHOUT A'l PRINT ' 
DRILL RIG ON SITE.'! PRINT ) 
PRINT 'BUTTON LOCKS DRILL 
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RI6 ON SITE MITH'i PRINT 'B 
UTTON 1 ACTIVATING THE DRILL 
."I PRINT "HORIZONTAL HININ6 

HEED8 A ROBOHINER." 

2020 PRINT I PRINT "HORE THAN OH 

E DRILL RI6 ON SITE 'i PRINT 

"REQUIRES A CHOICE AS TO ROB 

OHINER "i PRINT "LOCATION BY 

USING BUTTON 1."! PRINT : PRINT 
"PADDLE i DIAL CONTROLS DIRE 
CTION F0R"J PRINT "ALL HORIZ 
ONTAL HOVENENT. BUTTON END 
S'l PRINT "EACH STAOE OF NOR 
K." 
2025 PRINT 'TO END ALL HININ6 US 
E BUTTON 1 BEFORE"! PRINT "C 
H00SIN6 EBUIPHENT.'i PRINT i 

INVERSE ; PRINT "PRESS BUTT 
ON 1 TO CONTINUE") NORHAL i MAIT 

- 16286,1281 PRINT CHRt (7 
) 

Set the graphic display screen and 
establish the location of the 
Dilithium 3 crystals. 

2030 IF K(P,1) > THEN 6R iSC « 
12i 60SUB 200001 HOHE i COLORE 
Oi FOR Z « TO 8i HLIN 0,39 
AT Z> NEXT iVl ■ INT ( RND 
(1) I 37 + 2)>V2 » INT ( RND 
(1) t 30 + 9)iRA « 9 - LViRB 
> INT ( RND (1) t 2):H0 > 
0) eOTD 2035 

2035 HONE i IF K(P,1) -0 AND (H 
> OR KIP, 2) > 0) THEN 30 
00 

2040 H > 3iiHB « 9: GOSUB 2900i 60SUB 



2045) H > OiNB > 3i GOSUB 205 
0; GOSUB 2900) GOTO 2085 

Subroutine to display drill rig. 



2045 



COLOR- A(M - 1,1)1 VLIN 6,8 
AT H - l! COLORo NBi FOR Z > 
H TO H * 3t VLIN 5,8 AT Zi NEXT 
I VLIN 2,5 AT Z - 3i COLOR" 
A(H * 3,1)1 VLIN 5,8 AT H + 
3i IF N = 34 THEN COLOR= 9i 
VLIN 2,5 AT Z - 1 



Subroutine to display robominer. 



2050 



2055 
2060 



2065 

2070 
2075 

2080 



COLOR' HBi FOR Z ■ H TO H + 
li VLIN 5,8 AT Z I NEXT i PLOT 
N + 2,7 

RETURN 

GOSUB 20651 VTAB 21s HTAB 3 
t PRINT 'ROBOHINERS'M NORHAL 
I GOSUB 20751 HTAB 2B> PRINT 
'DRILL RIGS'i NORHAL i HTAB 
7i PRINT K(P,2)|i HTAB 33i PRINT 
KIP,l)i GOTO 2085 

IF PDL (1) < 127 THEN FLASH 
iH ■ li RETURN 

NORHAL I RETURN 

IF PDL (1) > 126 THEN FLASH 
jN » 37i RETURN 

NORHAL i RETURN 



2085 ZN ■ SCRN( H,7)i COLOR' 15: 

PLOT H,7: GOSUB 40020i COLOR' 

ZNi PLOT H,7i GOSUB 40010iXX 

• PEEK ( - 16287)1 IF XX > 

128 THEN 3000 

2090 X ■ PEEK ( - 16286)1 IF X < 



128 THEN 2060 
2095 VTAB 24} HTAB 1j PRINT Z«|i 
IF ZN « 3 THEN 2160 



Drill rig movement sequence. 

2100 H « 36iK(P,l) » K(P,1) - 1; PRINT 
CHR« (7)1 IF K(P,1) < THEN 

K(P,1) ' KIP,1) * It 8DSU6 3 

00601 GOTO 2085 
2105 XX ' Oi HOHE 
2110 MB ' 6) GOSUB 2045iC2 > Oi GOSUB 

2910: IF XX THEN 2125 
2115 H6 ' Oi GOSUB 204SiH ■ W + y 

Yi IF H > 36 OR M < 2 THEN M 
■ N - YY 
2120 MB ' 6i GOSUB 2045) GOTO 210 

5 

Routine to fix drill rig on site. 

2125 MB ' Oi GOSUB 2045iH0 ' HO + 
liY(HO) « 8i COLOR' lOi FOR 
Z ■ H TO W 4 2i GOSUB 30060i 
VLIN 5,8 AT Zi NEXT iB(HO) ' 
Mi GOSUB 29001 M ' H + 2 



Vertical drill routine. 

2150 VE ■ 1) GOSUB 2500 i VTAB 22 i 
HTAB 14i PRINT "ENERGYi "jE 
N)' 'ii IF EN < 1 OR VE » 1 THEN 
2600 

2135 XX ' PEEK ( - 16287) i IF XX 
> 128 THEN 2035 

2140 X • PEEK ( - 16286)1 IF X < 
128 THEN 2130 
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2145 COLOR- 2lY(H0) « Y(HO) + li 
IF y(HO) > 39 THEN YIHO) « 

39 
2150 Y > Y(HO)iVE * 4i 6D8UB 2300 

I VTAB 22i HTAB 14: PRINT 'E 

NER6YI '|EN|' 'p IF EN < 1 OR 

VE > 1 THEN 2600 
2155 PLOT HfYi CALL 814> 60T0 21 

35 
2160 IF HO > THEN SOSUB 30060 

: 60T0 2060 
2165 K(P,2) ■ K(P,2) - li HOHE i PRINT 
CHR» (7)1 IF KIP, 2) < THEN 

KIP, 2) ■ KIP,2) * li 60SUB 3 

0060) SOTO 2035 

Place robominer on site if there is 
only one drill rig. 

2170 60SUB 29001 IF HO > 1 THEN 
N ' BIHO)i COLOR- Oi PLOT M, 
7i 60SUB 30050) 60SUB 40020i 
M - BIHO) - 2)HB - 13i 60SUB 
2050: BOTO 2225 



Sort routine to organize tab 
positions of multiple drill rigs 
situation. 

2175 FOR Z - 1 TO HO - liZA - 0: 

FOR ZZ » 1 TO HO - Zj IF Bl 

ZZ) < « BIZZ * 1) THEN 21B5 

2180 Zl - BIZZ)iB(ZZ) > BIZZ * 1) 
iBIZZ + 1) - Z1:ZC « YIZZ):Y 
m) - YIZZ + DiYIZZ + 1) - 
ZC:ZA - 1 

2185 NEXT 

2190 IF ZA > THEN Z ■ HO - 1 

2195 NEXT : FOR ZQ - 1 TO HOi COLOR* 
0:N « BIZQ): PLOT H,7i 60SUB 
30050: 808UB 40020: NEXT 

■Move robominer to different drill 
rigs until choice is made. 

2200 FOB ZB > 1 TO HO:NB > 13:H - 

BIZQ) - 2: 608UB 2050 
2205 SOSUB 40010: X « PEEK I - 1 

6286): IF X > 127 THEN YIHO) 
- YIZQ):ZO - HO:ZY « 1 
2210 IF ZY « THEN HB - 0: 60SUB 

40010: SOSUB 2050 
2215 NEXT : IF ZY THEN ZY > 0: SOTO 

2225 
2220 SOTO 2200 
2225 SOSUB 2900: IF KIP,2) > > 

THEN Y ■ 9:N - H M: SOTO 

2235 
2230 SOTO 2170 



Robominer vertical motion. 

2235 COLOR- 15: PLOT N - 1,7: CALL 

814: SOSUB 40020: FOR ZZ - 7 
TO Y: PLOT H,ZZ: CALL 814: SOSUB 

40020: NEXT 
2240 IF PDL ID > 127 THEN FLASH 

:YY • 1 
2245 VTAB 21: HTAB 1: PRINT 'INC 

REASE DESCENT' I : NORMAL :XX - 

PEEK I - 16287): IF XX > 12 

7 THEN 2290 
2250 IF PDL ID < 128 THEN FLASH 

:YY - - 1 
2255 VTAB 21: HTAB 23: PRINT 'DE 

CREASE DESCENT'): NORHAL 
2260 X - PEEK I - 16286): IF X < 

128 THEN VE > 1: SOSUB 2500: 

VTAB 22: HTAB 14: PRINT 'EN 

ERSY: 'lEN)" 'p IF EN < 1 OR 

VE > 1 THEN 2600 
2265 IF X < 128 THEN 2240 
2270 COLOR- 15: PLOT «,Y:Y « Y + 

YY: IF Y > YIHO) OR Y < 9 THEN 

Y - Y - YY 
2275 COLOR- 0: PLOT H,Y: CALL 81 

4 
2280 VE - 4: SOSUB 2500: VTAB 22: 
HTAB 14: PRINT 'ENERSY: "|E 

N|' "p IF EN < 1 OR VE - 1 THEN 

2600 
2285 SOTO 2240 
2290 HONE : FOR Z > 1 TO 5: PRINT 

CHR( 17) p NEXT 

Robominer horizontal motion. 

2295 C2 - 1: SOSUB 2910: COLOR- 1 
5: PLOT H,Y:VE - 4: SOSUB 25 
00: VTAB 22: HTAB 14: PRINT 
■ENERSY: ')EN}' 'p IF EN < 
1 OR VE ■ 1 THEN 2600 

2300 H - H MY: IF N > 39 OR H < 
1 THEN N » N - YY 

2305 COLOR- 0: PLOT N,Y: CALL 81 
4 

2310 X - PEEK I - 16287): IF X < ^ 
128 THEN 2295 

Shut down all active drill rig sites. 

2315 FOR Z > 1 TO HO:H - BIZ): COLOR- 
0: FOR ZZ - N - 3 TO N - 1: VLIN 
5,8 AT ZZ: SOSUB 40020: CALL 
814: NEXT : COLOR- 6: FOR ZZ 
- N TO N + 2: VLIN 5,8 AT Z 
Z: SOSUB 40020: CALL 814: NEXT 
: NEXT : SOTO 2035 



Checks to compare distance from 
drill rig bit or robominer to 
Dilithium. 

2500 EN - INT (EN - 1100 / KIP,1 
5)) t VE) 

2510 VE - 0: INVERSE : VTAB 23: HTAB 
13: IF Y < 9 THEN PRINT 'SU 
RFACE 'p NORHAL : RETURN 

2520 IF IN < VI - RA OR N > VI + 
RA + 2) OR lY < V2 - RB t 3 OR 

Y > V2 + K(P,4) + RB » 4) THEN 
PRINT 'ICE AND ROCK': NORHAL 
: RETURN 

2530 IF IN < VI - RA OR N > VI + 
RA + 2) OR lY < V2 - RB t 2 OR 

Y > V2 + KIP,4) + RB I 3) THEN 
PRINT 'THIRIDIUH ': NORMAL 

: RETURN 
2540 IF IN < VI - RA OR N > VM 
RA + 2) OR lY < V2 OR Y > V2 
+ KIP, 4) + RB) THEN PRINT 
'SECONIUN ■: NORHAL : RETURN 

2550 IF IN < VI OR H > VI + 2) OR 
lY < V2 OR Y > V2 + KIP, 4) + 
RB) THEN PRINT 'FIRIDIUN 
■p NORNAL : RETURN 

2560 VE * 1: RETURN 

Discovery of Dilithium. 

2600 IF EN < 1 THEN 2800 

2610 HOHE : FLASH : PRINT 'EUREK 
A!': NORNAL : PRINT : PRINT 
'YOU HAVE FOUND 'p INVERSE 
: PRINT 'DILITHIUN'p NORMAL 
: PRINT '!!!': FOR Z » 1 TO 
5: PRINT CHRt 17) p NEXT : SOSUB 
40000 

2620 HOME 

2630 VTAB 22: NORMAL : SOSUB 265 
0: PRINT 'STATUS'p NORMAL : 
SOSUB 2670: HTAB 27: PRINT 
■500 CREDITS': NORNAL :X ■ PEEK 
I - 16286): IF X < 128 THEN 
2630 

2640 KIP.Xl) - KIP,X1) + Y:KIP,16 
) « KIP,16) + 1: SOTO 2700 

2650 IF PDL ID < 127 THEN FLASH 
:X1 > 0:Y « 1: SOSUB 30050: RETURN 

2660 NORHAL : RETURN 

2670 IF PDL ID > 128 THEN FLASH 
:X1 ■ 13:Y - 500: 80SUB 3005 
0: RETURN 

2680 NORMAL : RETURN 

End of drilling operations due to 
lack of equipment or energy. 
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2700 IF EN < 1 THEN 2800 


6286) s IF X < 128 THEN 2905 


TEDR STDRHIs'ls NORHAL iR ' 


2710 IFK(P,1) ) THEN 2030 


2960 RETURN 


INT ( RND (1) t 10 M) 


2730 HOHE i PRINT 'YOU DO NOT HA 


Cave-in sequence. 


3530 PRINT R}" WORKERS LOST!"sK( 


VE ENOUGH EOUIPHENT LEFT'i PRINT 




P,14) = KIP, 14) - Rs IF R < 


" TO CONTINUE DRILLINB.'s 


3000 R » RND (1) » 10 - K(P,ll)s 


7 THEN 3550 


6DSUB 300701 BOTO 3000 


IF R < 7 OR KIP, 16) < 1 THEN 


3540 R « INT 1 RND <1) » 5 + Ds 


2800 HONE i PRINT 'YOU DO NOT HA 


3500 


IF KIP,R) < 1 THEN 3550 


VE EN0U6H ENER6Y LEFT TO'i PRINT 


3010 6R sSC > 2i 60SUB 20000s HONE 


3550 HTAB 5:s PRINT "PRESS BUTTO 


■ CONTINUE DRILLING. '1 60SUB 


s FLASH s VTAB 21s HTAB 15s PRINT 


N l"|s INVERSE : PRINT "1"j: 


30070J BOTO 3000 


"RED ALERT!': NORHAL : FOR Y 


NORHAL s PRINT " TO CONTINU 


Read screen color of lines 6 and 7 


» 30 TO STEP - 2s POKE 7 


E')s NAIT - 16286,128: FOR 


into an array to be used by drill rig 


68, Y: POKE 769,20: CALL 770: 


Z • 1 TO 3s PRINT CHR$ 17)} 


graphic display. 


NEXT s GOSUB 40010 


: NEXT 


2900 FOR Z2 » 1 TO 3BjZA » li FOR 


3020 HOHE s PRINT s CALL 791s INVERSE 




ZD ■ i TO 7iA(ZZ,ZA) > SCRN( 


I VTAB 211 HTAB 9s PRINT "CA 


Monthly report. 


ZZ,ZD)iZA » ZA + Is NEXT i NEXT 


VE INs'is NORHAL :R « INT ( 




1 RETURN 


RND (1) t 11) 




290S IF C2 THEN VE ' 2s GDSU6 25 
OOi VTAfi 22: HTAB 14s PRINT 


3030 PRINT Rr WORKERS L08T!"sK( 
P,14) • K(P,14) - R 


4000 Z » K(P,5)i IF KIP, 16) < Z THEN 
Z = KIP,16) 


■ENERGYs ";ENs IF EN < 1 OR 


3040 IF R > 6 THEN FLASH : PRINT 


4010 KIP, 13) * INT IKIP,13) + Kl 


VE ■ 1 THEN POP sZH ■ Os GOTO 


1 HTAB 12s PRINT 'SHAFT HON 


P,13) » 0.1 + 500 + 150 » Kl 


2600 


CL0SED!"i:K(P,16) = K(P,16) - 


P,0)) + IZ » 25 t KIP, 8))) 




Is NORHAL 


4020 TEXT : HOHE 


Subroutine for horizontal motion 


3050 HTAB 6is PRINT "PRESS BUTTO 


4100 PRINT "';i VTAB li HTAB 17s 


direction display. 


N I'ls INVERSE 1 PRINT "l"is 


FLASH : PRINT "TITAN": NORHAL 




NORHAL s PRINT " TO CONTINU 


4110 PRINT : PRINT 'HONTHLY REPO 


2910 YY ■ Oi IF PDL (1) < 128 THEN 


E'{S NAIT - 16286,128 


RT"}: HTAB 29; PRINT DA) "/I/ 


FLASH sYY ■ - 1 




"lYE 


2920 VTAB 21s HTAB Is PRINT '<« 


Meteor storm sequence. 


1 " 

4120 GOSUB 30080s GOSUB 40010 


<«««■) s NORHAL s HTAB 16s 


3500 R » RND (1) « 10 - K(P,3)s IF 


4130 INVERSE ; FOR Z • 4 TO 6 STEP 


PRINT "DIRECTION"} 


R < 8 THEN 4000 


2: VTAB Z; HTAB 1: PRINT L£FT« 


2930 IF PDL (1) > 127 THEN FLASH 


3510 6R iSC « 9s GOSUB 20000: VTAB 


IZ«,39): NEXT s NORHAL s VTAB 


sYY » 1 


21: HTAB 15; PRINT "RED ALER 


5s HTAB Is PRINT " I TEH 


2940 HTAB 31s PRINT "»»»»»' 


T!"s NORHAL s FOR Y ■ 200 TO 


ACTA BELL CHIH DAED 


s NORHAL 


STEP 20s POKE 768, Ys POKE 


tt 


2945 X ■ PEEK ( - 16287) s IF X > 


769,20s CALL 770: NEXT 


4140 VTAB 8; PRINT 'STATUS": FOR 


127 THEN XX « Is RETURN 


3520 HOHE s PRINT s CALL 791s INVERSE 


Z • 1 T0 6; PRINT Efl«IZ)s NEXT 


2950 60SUB 40020s X • PEEK ( - 1 


s VTAB 21s HTAB 4s PRINT 'HE 


s FOR Z » 1 TO 4: PRINT EX*I 
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Z)i NEXT 

4J50 Id ' 

4160 FOR Z » 15 TO 36 STEP 7i VTAB 
SiZA = ZA + h FOR X « TO 
6; HTAB Zi PRINT K(ZA,X)i NEXT 
i FOR X > 13 TO 16) HTAB Zi PRINT 
K(ZA,X)i NEXT i NEXT 

4170 VTAB 23j HTAB 8i PRINT "PRE 
SS ■;» INVERSE i PRINT "BUTT 
ON';; NORHAL : PRINT ' TO CO 
NTINUE' 

4180 WAIT - 162S6,128t GOSUB 30 
060 I RETURN 

Efficiency rating algorithms. 

5000 FF ■ Oi FOR Z3 » 1 TO 5iFF » 
FF + K(P,Z3) t Z3i NEXT i IF 
FF < 1 THEN FF « 1 

5010 EF « K(P,6) » 10 / FF! IF EF 
> 1 THEN EF » FF / (KIP, 6) » 
10) 

5020 EF « EF I lOOiFF « K(P,7) » 
2.5! IF FF < THEN FF « FF t 
- 2 

5030 EF « EF - FFtFF « (K(P,8) - 
6) » 3i IF FF < THEN FF » 
FF I - 2 

5040 EF - EF - FF + (K(P,9) t 5) + 
(KIP.IO) t 5) + (K(P,11) t 7 
.5) + (K(P,12) t 10)!EF » INT 
(EF>! IF EF < 5 THEN EF « 5 

5050 IF EF > 100 THEN EF « 100 

5060 IF K<P,9) « THEN EF « 1 

5070 KIP, 15) » EF! RETURN 

New cost algorithms. 
6000 FOR Z > 1 TO 8!X ■ Oi FOR V 



« 1 TO 4iX » X + KIV,Z)! NEXT 

!X » X / PL 
6010 IF Z > 5 THEN CIZ) « INT I 

CIZ) + (CIZ) t X / 155 - LV) 

))i GOTO 6050 
6020 CIZ) « INT ICIZ) + ICIZ) I 

X / 125 - LV)) - ICIZ) » 1 / 

(25 -LV))) 
6030 IF C(Z) < 100 I Z THEN C(Z) 

= 100 » Z 
6040 IF CIZ) > 200 t Z THEN CIZ) 

= 200 t Z 
6050 IF Z > 6 AND CIZ) < 1 THEN 

CIZ) » 1 
6060 IF Z > 6 AND CIZ) > 50 THEN 

CIZ) « 50 
6070 IF Z ■ 6 AND CI6) > 4000 THEN 

CIZ) ' 4000 
6080 NEXT ! FDR Z ■ 1 TO 4i FOR 

Y « 8 TO 12iKIZ,Y) « Ol NEXT 

! NEXT I RETURN 

Date. 

7000 DA ■ DA M! IF DA M3 THEN 

DA « l!YE « YE + 1 
7010 RETURN 

End of game sequence. 

8000 IF YE ■ 2051 AND DA > 3 THEN 

8500 
8010 R ' INT ( RND ID t 2)i IF 

R ■ OR YE ■ 2050 THEN RETURN 

8020 R * INT ( RND (1) t 2)i IF 

R > THEN RETURN 
8500 FOR X ■ 1 TO 5i PRINT CHRI 



17) p NEXT I PRINT "THE "ii! 
INVERSE I PRINT "INSPECTORS 

")i NORMAL I PRINT " HAVE AR 

RIVED!"! SOSUB 30010! BOBUB 

40000 
8510 NORHAL i VTAB 23! PRINT "YO 

UR PERFORMANCE IS BEINS A8SE 

S8ED.'! GOSUB 30010! 608UB 4 

OOOOi IF PL ' 1 THEN 8600 
8520 Z « - liY » 0! FOR X - 1 TO 

PLi IF KIX,0) > « Z THEN Z ■ 

KIX,0)!Y « Y + 1 
8530 NEXT I IF Y ■ 1 THEN 8590 
8540 FOR X « 1 TO Y - l! IF KIX, 

0) ■ Z THEN ZZ ■ l! SOTO 856 


8550 60T0 8580 
8560 FOR X « 1 TO Yi IF KIX,0) < 

THEN KIX,0) ■ 0! NEXT i GOTO 

8520 
8570 KIX,0) > KIX, 16) t 100 * KIX 

,15) * KIX, 14) * KIX, 13) + RND 

ID 
8580 NEXT t IF ZZ THEN ZZ > 0! 60T0 

8520 
8590 VTAB 22! CALL - 958i HTAB 

4! PRINT "THE SUPERVISOR OF 

"lAIIY))' HAS HON."! 60T0 86 

30 
8600 IF K 1 1,0) > 19 THEN 8620 
8610 ! VTAB 22! CALL - 958! PRINT 

"I AH SORRY TO REPORT THAT Y 

OU DID NOT"! PRINT "ACHIEVE 

ENOUGH STATUS TO SAIN ALL TI 

TAN"! SOSUB 30070! GOTO 8700 

8620 VTAB 22! CALL - 958! PRINT 
■BECAUSE OF YOUR STATUS YOU 
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HAVE HON' 
B630 PRINT " THE RISHT TO NINE 

ALL OF ')! INVERSE i PRINT 

■TITAN- > I NORMAL i PRINT '!" 

)i BOSUB 30080 
B700 END 

Initial values. 

9000 DA « OiYE ' 2050i FOR Z = 1 TO 
4i FOR Y » TO 16»K(Z,Y) « 
0) NEXT i NEXT 

9020 C(l) » 100iC(2) » 200iC(3) » 
300jC(4) ■ 400jC(5) « 500iC( 
i) « 2000jC(7) = 5lC(8) « 10 
iC(9) « IOOjCUO) ■ 200jC(H 
) • 300lC(12) ■ 400 

9090 RETURN 

Data lines. 

10000 DATA 173,48,192,136,208,5, 
20i,l, 3,240,9,202,208,245,17 
4,0,3,76,2,3,96 

10010 DATA 162,64,169,10,133,0,1 
73,48,192,188,0,186,136,208, 
253,202,208,244,198,0,208,24 
0,96 

10020 DATA 169,1,133,0,169,160,1 
33,1,164,0,173,48,192,166,1, 



202,208,253,136,208,245,198, 
1,208,239,96,216,160,0,76,44 
,254 

10030 DATA T,I,T,A,N 

10040 DATA ACTAEON,BELLDNA,CHIH 

ERA, DAEDALUS, DRILL RI6,R0BDH 

INERS, DEFLECTOR, RU UNIT,REF 

INERY,ENER6IZER,C0NTINUE THE 

BANE 

10050 DATA LABOR POOL,SHIFT TINE 
,NA6E SCALE, RECREAT ION, SAFET 
Y,BDNUSES,CONTINUE THE 6AHE 

10060 DATA CREDIT,HAHPONER,EFFIC 
IENCY,»VEINS} 

IVIachine Language routine to color 
lo-res screen. 

20000 POKE 1024, SC + SC I 16m POKE 
60, Oi POKE 61, 4i POKE 62,254 
I POKE 63,7s POKE 66, li POKE 
67, 4i CALL 840i RETURN 

Sound routines. 

30000 FOR X « 770 TO 845i READ Z 
I POKE X,Zi NEXT > RETURN 

30010 I FOR UZ « 15 TO STEP 0,5 
I FOR UY « 3 TO STEP - li 



POKE 768,15 - UYi POKE 769, 

UZi CALL 770i NEXT i NEXT i RETURN 
30020 FOR UY « TO Ss POKE 768, 

215 - UYs POKE 769,161 CALL 

7701 NEXT I RETURN 
30030 FOR UY > 5 TO lOi POKE 768 

,UYi POKE 769,10! CALL 770i NEXT 

! RETURN 
30040 FOR UY « 50 TO 100 STEP 10 

I POKE 768,150 - UY: POKE 76 

9,15! CALL 7701 NEXT i RETURN 

30050 POKE 76B,UNi POKE 769, lOi CALL 

770: RETURN 
30060 POKE 768,255: POKE 769,60: 

CALL 770: RETURN 
30070 FOR UY ■ 150 TO 200 STEP 1 

0: POKE 768, UY: POKE 769,155 

: CALL 7701 NEXT ; RETURN 
300B0 POKE 801, UN: POKE 802, UL: CALL 

791: POKE 801,00: POKE 802,1 

86: RETURN 



Delay loops. 

40000 FOR UZ 
40010 FOR UZ 
40020 FOR UZ 



1 TO 3000! NEXT 

1 TO 500: NEXT 

1 TO 100: NEXT : RETURN 
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APL 



by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language Is In Its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time In BASIC are solved 
quickly and with minimal effort in APL. 

To aid in learning APL, lessons are Included on the disl^. Starting from the basics, you are brought step by step through 
the various programming techniques Involved with APL. These lessons act as a tutor which will have you "tallcing APL" in 
no time. Also available Is the bool^, "APL: An interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional Insight Into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to llneprlnter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expresslons(FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace Is 25587 bytes (In 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, ceiling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal. Index generator. Indexing, Index of. Inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (48K recommended) includes APL-80, Five workshapes of lessons, in- 
struction manual. .., $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and Inner product not Implemented. Reduced domain for some functions, 6 digit accuracy. 
$14.95 on cassette 

LIMITATIONS 
Due to the absence of the special APL character set on the TRS-aO , APL-60 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls Inverse are not Implemented but can be derived with user-defined functions. Multiple specifications must be split Into 
two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quota-quad (m) Is permitted. No more than 32 user functions can be defined In a single workspace and a function 
may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 
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Atari Version 

Part 1 

Initialization and title display. 

1100 DIM Cil2l,K(4,16),2t(l),A$(40),E8 
$ (70) , HC» (70) , £X$ (40) , DB$ (72) : J0=20000 
:J1=20010:J2=20020:J3=20030:J4=20040 
1110 J5=20050: J6=20060: J7=20070 
1120 GRAPHICS 2:SETC0L0R 0,0,8:SETCOLO 
R 1,0,8:SETCQL0R 2,8,0;SETC0L0R 4,8,0 
1130 POSITION 7.4:F0R Z=0 TO 3:READ Z$ 
,V,.K:? le;2»;:S0UND Z,Y,10,4:F0R Y=l T 
XiNEXT V:NEn Z:? tt6;"N" 
1140 SOUND 3,68,10,4:S0UND 0,136,10,4: 
POKE 752,1;'? " (c) Wn. Morris 4 J, C 
ope 1981":F0R Z=l TO 9?9:NE.n Z 

Playing parameters. 

1150 SOUND 3, 0,0,0: FOR Z=0 TO 3: SOUND 
0,162, 10, 8:SETC0LOR 2,3,15!SETC0L0R 4, 
3,15:F0R Y=0 TO 200:NE)(T Y 
1160 SOUND 0,217, 10, 8:SETC0LOR 2,3,0:S 
ETCOLOR 4,3,0:F0R Y=0 TO 200:NEn Y:NE 

n Z 

1170 FOR Z=0 TO 999:NE);T Z;F0R Z=0 TO 

3:S0UND Z,0,0,0:NEJ(T Z:GOSUB 3000 

1200 GRAPHICS 17:SETC0L0R 2,4,15:SETC0 

LOR 4,12,0:P0SITI0N 2,1:? I6;"WELC0I1E 

TO TITAN' ":P0SITI0N 1,7:G0SUB JO 

1210 ? JI6;"USE THE JOYSTICK TO":? 16;" 

SELECT THE NUMBER OF": POSITION 6,11;? 

«6;'PLfiyERS.":G0SUB 2100 

1220 PL=X:GRAPHICS 17:SETC0L0R 2,4,15: 

SETCOLOR 4,2,0:P0SITI0N 0,7:? »6;"LEVE 

L OF DIFFICULTY^" :GOSUB 2100 

1230 LV=)(+4: GRAPHICS 17:SETC0L0R 4,15, 



1240 FOR Z=l TO PL:POSITION l,4tZ-3:? 

#6; "PLAYER « "jZ;" COMMANDS BASE" : A 

t(ZllO-9,Z«10):GOSUB JhNEKT Z 

1250 POSITION 2,19:? it6; "PRESS TRIGGER 

TO":POSITION 8,21:? #6; "BEGIN" !G0SUB 
JO 

1260 IF STRIG(O) THEN 1260 
1270 FOR Z=l TO PL:K(Z,6)=1:K(Z, 131=50 
0:K(Z,14)=100:K(Z,15)=5:NEXT Z:? "}I'M 

NOW LOADING FART2." 

1280 ? :? "WHEN I SAY 'READY', ":1' "TYP 
E 'GOTO 300' TO CONTINUE . , .":ENTER 
"D:TITAN24K.PT2" 
1290 REM ENTER'C:" for cassette. 

Joystick selection routine. 

2100 POSITION 6,17:Y=2110 
2110 ? «6;"J1 2 3 4":GOT0 2150 
2120 ? »6;"r 2 3 4":G0T0 2150 



» » 
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2130 ? #6; "I 2 3_ 4":G0TO 2150 

2140 ■? #6;"1 2 3 4_" 

2150 GOSUB Jl 

2160 POSITION 6,17:F0R Z=0 TO 14 STEP 

2:SETC0LOR 2,4,Z:NEXT Z;IF STRIG(0)=0 

THEN X=!Y-2!00)/10;GOSUB J0;RETURN 

2170 IF STICK(0)=15 THEN 2160 

2175 IF STICK(0)=11 THEN Y=Y-20:IF Y<2 

100 THEN Y=2100 

2180 Y=Y+10:1F Y>2140 THEN Y=2110 

2190 GOTO Y 

Set initial numeric variables and 
string arrays. 

3000 DA=0:YE=2050:F0R Z=l TO 4: FOR Y=0 

TO 16:K(Z,Y)=0:NEn Y:NEXT Z 
3010 C(1)=100:C(2)=200:C(3)=300:C(4)=4 
00:C(5)=500:C(6)=2000:C(7)=5:C(8;=10:C 
(9) = 100:C(10)=200:C(n)=300:C(12)=400 
3020 EBi="DRILL RIG RDBOMINER DEFLECTO 
R RJ-D UNIT REFINERY ENERGIZER CONTIN 
UE " 
3030 A$=" ACTAEON BELLONA CHIMERA 

DAEDALUS " 
3040 HCt="LHBOR POOLSHIFT TIMEWAGE SCA 
LERECREATIONSAFETY BONUSES CONTIN 
UE " 

3050 EU="CREDIT MANPOWER EFFICIEN 
CYI VEINS t " 
3060 RETURN 

Sound routines. Common to parts 
one and two. 

10000 DATA T, 162, 400, I, 108, 400, T, 81, 60 
0, A, 64, 100 



lOOlO DATA 8,8,8,8,8,20,28,20,28,20,62 

,54,99 

10020 DATA 240,208,240,97,255,241,144, 

216 

20000 FOR UZ=15 TO STEP -0,5:F0R UY= 

3 TO STEP -hSOUND 0,15-UY,10,UZ:NEX 

T UY:NEXT UZ: RETURN 

20010 FOR UZ=16 TO STEP -2:F0R UY=0 

TO 5;S0UND 0, 15-UY,10,UZ:NEXT UY:NEXT 

UZ:RETLIRN 

20020 FOR UZ=10 TO STEP -2: FOR UY=5 

TO 10:SOLIND 0, 15-UY, 10,UZ:NEXT UYiNEXT 

UZ; RETURN 

20030 FOR UZ=2 TO STEP -2: FOR UY=50 
TO 100 STEP 10:S0UND 0,150-UY, 10,yZ:NE 
XT UY;NEXT UZiRETURN 
20040 SOUND 0,UN, 10,2;F0R UZ=1 TO 2:NE 
XT UZ; SOUND 0,0,0,0:RETLIRN 
20050 SOUND 0,255, 10, 4:F0R UZ=1 TO 9:N 
EXT UZ:SOUND 0,0,0,0:RETURN 
20060 FOR UZ=16 TO STEP -!:FOR 01=15 
TO 200 STEP 10:S0UND 0,UY, 10,UZ;NEXT 

UY;NEXT UZ: RETURN 
20070 FOR UZ=8 TO STEP -1:F0R Uy=55 
TO 105 STEP 10;S0UND 0,UY, iO,UZ:SOUND 
i,UV-50,90,UZ;NEXT LiY;NEXT UZ:RETURN 

Part 2 

300 GOSUB 7000: GOSUB 8000: FOR P=l TO P 
L:POKE 77,0;G0SL1B 1000:NEXT P:G0SIIB 60 
00: GOTO 300 

Equipment IVIanagement phase. 

1000 GRAPHICS hSETCDLOR 2,S,4;SETC0L0 
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R 4,P+4,2:CH=l:ftC=0:C2Ki 

1010 POSITION 3,0;? St;"BftSE;"-,ft$!PtlO 

-9,PtlO):POSITION 1,2:? it£>iDA;"/l/";YE 

;" STATUS ";K(P,0):GOSLIB J2 

1020 POSITION 0,4: 7 #6;" E0UIPHENT OHNE 

DJOST': POSIT ION 0,6:F0R l^\ TO 6:? #6 

iEE!$!ZtlO-9,ZtlO):NE);T Z 

1030 FOR Z=l TO 6;P0SITI0N 12,5+Z;-^ #6 

iK(P,Z);" "iPOSITION l/.,.5+Z:? #6;C.(Z): 

NEXT Z 

1040 POSITION 7,15:^ #6; "credit: POSIT 

ION 8,17:? )t6:KiP,13);" ":6QSUB 1100: 

IF CH=7 THEN CH=1:AC=0:G0T0 1300 

1050 GOTO 1020 

Buy and Sell routine. Accessed by 
Equipment Management and Labor 
Relations phases. 

1100 POKE 752,1;P0KE 77,0;? "}";:IF CH 

>7 THEN CH=CH-7 

1110 IF AC=0 THEN ? ," JNCREASP : LIN= 

40:GOSLIB J4 

1120 IF AC THEN ? ," DECREASE" ;LIN=24 

3:60SUB J 4 

1125 IF C2=0 THEN ';' :'' ," ";EQ$!CHt! 

0-9,CHtlOi:GOTO 1135 

1130 ? :^ ," ";WC$fCH»10-9,CHtlO) 

1135 IF CH=7 THEN ? ;UN=121:60SUB J 4 

1140 IF STICK(0)=15 AND STRIG(0)<>0 TH 

EN 1140 

1150 IF STRIG(0)=0 THEN 1200 

1160 IF STICK (0) =11 THEN hC=0 

1170 IF STICK iO) =7 THEN AC=1 

1180 IF ST!CKi01=13 THEN CH=CH+1 

1190 IF STICK(0)=14 THEN CH=CH-1:1F CH 

<1 THEN CH=7 

1195 GOTO 1100 

1200 IF CH=7 THEM RETURN 

1205 IF C2 THEN CH=C.H+6 

1210 IF iAC=l AND CH=6 AND K(P,6)=1) 

R (fiC=0 AND CH=3 AND K(P,S)>17) OR (AC 

=1 AND K(P,CH)<1) THEN 1200 

1220 IF AC=0 AND CH=9 AND K(P, 9.1=0 THE 

N 1250 

1230 IF AC=0 AND KiP,13)<CiCH) THEN 12 

80 

1240 IF AC THEN K(P,CH)=KfP,CH)-l:K(P, 

13)=K(P,13)+C(CH);IF CH=7 THEN K!P,14) 

=K(P,14)-1 

1250 IF AC=0 THEN K(P,CH)=K(P,CH)+l:Ki 

P,13)=K(P,13)-CiCH):IF CH=7 THEN K(P,1 

4)=K(P,14)+1 

1260 SETCDLOR 2,il,0;IF C2 THEN CH=CH+ 

1:IF CH=e THEN SETCOLOR 2,8,4:RETURN 

1270 GOSUB J3: SETCOLOR 2, 8, 4: RETURN 

1280 SETCOLOR 2,3,0:G0SUB J5;SETC0L0R 

2,8,4: IF C2 THEN CH=CH+1 

1290 RETURN 

Labor Relations phase. 



1300 GRAPHICS 1: SETCOLOR 2,B,4:SETC0LD 

R 4,P+3,2:C2=1 

1310 POSITION 3,0:? #6;"BASE: ";A$(P»10 

-9,Ptl0):P0SITION 4,2:? tt6; "HANP0MER " 

iK!P,14);P0SITI0N 0,4:GDSUB J2 

1320 K(P,7)=K(P,14)-iKiP,lltLV)-iK(P,2 

)ILVt2>-(KiP,3)tLVt3)-iK(P,4)tLVt4)-iK 

!P,5}tLV*5i-(K(P,fc)»LVtlO) 

1330 C(?i=K!P,14):C(10)=K!P,14)t2;CilI 

)=K(F,14)»3;C(12)=K(P,14)»4:EN=K(P,i)t 

500tiil-LVi 

1340 GOSUB 5000;? »6; " EFFICIENCY RATE 

";K!P,15);"r' 

1350 POSITION 0,6:? «6; "conditions se 

t co5t":P0SITI0N 0,8:F0R Z=l TO 6:? «6 

;WC$!ZtlO-9,ZJ10)!NEXT Z 

1360 FOR Z=l TO 6:P0SITI0N 12,7+Z;'' #6 

;K(P,Z+6!;" ";PDSITION 16,7+Z;? »6;C(Z 

+6):NEn Z 

1370 POSITION 7,15:? #6; "_£redjt_":POSIT 

ION 8,17:? l|6:K(P,13);" ":GOSUB 1100 

: IF CH=7 THEN 2000 

1380 GOSUB 5000:PGSITION 16,4:'> »6;EF; 

•"/. ";:GOTO 1360 

Mining phase and graphics display. 

2000 IF KiPjlXl THEN 3000 

2010 GRAPHICS 7: SETCOLOR 0,l,6;SETCOL0 

R 2,O,0:SETCOL0R 4,0,O:COL0R 3:PL0T 0, 

19:DRAWT0 159,19 

2020 COLOR 1:F0R Z=20 TO 79:S0LIND 0,20 

0-Z*2,10,2;PL0T 0,Z:DRAWTO 159,Z:NEXT 

Z:SETCOLOR 2,11,2:G0SUB JO 

2030 COLOR 1;F0R Z=l TO 10:F0R Y=l TO 

2;R=INT(RND(0)tl59);PL0T R,Z:NEn Y:NE 

n z 

Sets the location of the Dillthium 3 
crystals. 

2040 Vl=INTiRND(0)tl29+15):V2=INT.(RNDi 
0) 159+20) ;RA=10-LV:RB=INT(RNDiO) 13) 

This line Is central to setting the 
missile graphics routines for Titan: 
(1) sets playfield for single-line 
resolution; (2) reserves memory for 
missile graphics; (3) sets the high 
byte of PMBASE; (4) enables missile 
graphics. 

2100 POKE 559,62: Z=PEEK( 106) -8: POKE 54 
279,Z;P0KE 53277,3:)(=Zt256+1280:REST0R 
E :FnR Z=l TO 12:READ Zt:NEl(T Z:HO=0 

Reads the data for the robominer 
and drill rig Into the missile 
graphics screen display locations. 

2110 FOR Z=57 TO 69:READ Y:POKE X+Z,Y: 
NEXT Z:X=X+256:F0R Z=62 TO 69:READ Y:P 
OKE X+Z,Y:NEXT Z 



Sets playfield so that players have 
priority. 

2120 SETCOLOR 2, 11, 2: POKE 623,1; POKE 7 

52,1:IF K(P,1)=0 AND (H0=0 OR K(P,2)=0 

) THEN 3000 

2130 ■;' CHR$!!25}:? ,, "DRILL RIG(S) ";: 

X=l:W=20O;G0T0 2150 

2140 ? CHR$!125):? "ROBOMINER (S) ";;X= 

2;W=50 

2150 ? K(P,X);POKE 53248+X,W;Z=704+X:P 

OKE Z, 78: GOSUB J0+X»10 

2160 FOR Y=78 TO 64 STEP -hPDKE Z,Y:I 

F STRIB(0)=0 THEN Y=64;NEXT Y:POKE Z,7 

8: GOTO 2200 

2165 IF STICK(0)=7 THEN Y=0;NEXT Y:POK 

E 53250, 0:GOTO 2130 

2170 IF STICK!0)=11 THEN Y=0:NEXT Y;PO 

KE 53249,0: GOTO 2140 

2175 IF STICK(0)=14 THEN 2185 

2180 NEXT Y;GOTO 2160 

2135 ? CHR$il25):? ," CONTINUE"; :POK 

E 53249, 0:POKE 53250,0;G0SUB J3:IF STR 

IG(0)=0 THEN 3000 

2190 FOR Y=78 TO 64 STEP -1:IF STICKIO 

)=!5 THEN 2185 

2195 GOTO 2165 

2200 IF K(P,X)<1 OR (X=2 AND H0=0) THE 

H SETCOLOR 2,3,2;G0SUB J5:SETC0L0R 2,1 

1,2;G0T0 2160 

2210 K(P,X)=K(P,X)-1:F0R Z=20 TO STE 

P -1;S0UND 0,Z,10,2:NEXT Z 

Horizontal movement phase. 

2220 SOUND 0,»,10,2:IF STRIG(O)=0 THEN 

2300 
2230 IF STICK(0)=11 THEN H=H-1:IF W<50 

AND X=l THEN W=50 
2235 IF W<40 THEN W=40 
2240 IF STICK (0) =7 THEN W=«+1:IF H>200 

THEN W=200 

2250 POKE 53248+X,W:G0T0 2220 
2300 IF X=l AND (W=50 OR «=200) THEN 2 
220 

2310 IF X=2 THEN 2400 
2320 iit=W-44:Y=19 

Vertical drilling sequence. 

2330 COLOR 2:F0R Z=10 TO 14;SETC0L0R 1 

,0,Z:PLOT W,19:VE=i 

2333 IF STICK (0) =13 THEN Y=Y+1; SOUND 

,200,2,8:VE=2;IF Y>7B THEN Y=78 

2335 GOSUB 2500:? /ENERGY '';EN:IF EN< 

1 OR VE=1 THEN Z=14:NEXT ZsGOTO 2600 

2340 SOUND 0,150, 12, 2:DRAHT0 H,Y:NEXT 

Z:IF STRIG(0)<>0 THEN 2330 

2350 COLOR 1:F0R Z=16 TO 18: PLOT W-4,Z 

:DRA«TO |i)+4,Z:NEXT Z:COLOR 0:PLOT «,Y; 
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DRAWTO W,17:P0KE 53249, OiGOSUB JI 
2360 H0=H0+1:S0T0 2120 

Robominer vertical drilling 
sequence. Allows up and down 
movement. 

2400 LOCATE W-41,19,::IF ZOO THEN 222 



2410 W=W-41:Y=17 

2420 COLOR 2:F0R 1=10 TO 14:SETC0L0R 1 

,0,I:PLOT W,17:IF STICK(0)=13 THEN Y=Y 

+1:L0CATE W,Y,X:IF aOO THEN Y=Y-1 

2430 IF STICK(0!=14 THEN COLOR 0:PLOT 

H,Y:Y=Y-l!lF Y<20 THEN y=20 

2435 VE=1:60SUB 2500;SOLIND 0,150,12,2! 

DRAWTD W.Y:'? ."ENERGY ";EN:IF EN<1 THE 

N ZM4:NEn Z:GOT0 2t00 

2440 NE);T Z:IF fSTICK(0)<>7 AND STICK! 

0)011) OR Y<20 THEN 2420 

2445 COLOR OiPLOT H,17;DRfiWT0 W,Y 

Robominer horizontal drilling 
sequence. 

2450 VE=1:C0L0R OiSETCOLOR i,0,15:PLOT 
W,Y:IF STICKiO)=7 THEN W=W+l!SOLiND 0, 
200,2,8;VE=2:IF W>150 THEN W=W-1 
2460 IF STICK (0) =11 THEN N=H-1: SOUND O 
,200,2,8!VE=2:IF W<10 THEN W=W+1 
2465 GOSUB 2500:? , "ENERGY ";EN:IF EN< 
1 OR VE=1 THEN 2600 

2470 SOUND 0,150, 12, 2;CDL0R 2:PL0T W,Y 
:IF STRIG(0)O0 THEN 2450 
2480 POKE 53250,0:G0SUB JhGOTO 2120 

Compare distance of drill rig or 
robominer to Dilitliium. 

2500 POKE 77,0:EN=INT!EN-ilOO/K(P.15).! 

»VE) 

2510 VE=0:? C.HR$tl25);IF Y<20 THEN SET 



COLOR 2,11,2:? "SURFACE ";:RETURN 
2520 IF (W<Vl-RAt3 OR W>Vl+RAt4) OR (Y 
<V2-RBt3 OR Y>V2+K(P,4i+RBt4) THEN SET 
COLOR 2,1,2:? "ICE AND ROCK";: RETURN 
2530 IF (W<Vl-RAi2 OR W>Vl+RAt3) OR (Y 
<V2-RB»2 OR Y>V2+K(P,4)+RB«3) THEN SET 
COLOR 2,7,2:? 'THIRIDIUM "r.RETURN 
2540 IF iH<Vl-RA OR W>Vl+RAt2) OR iY<V 
2-RB OR Y>V2+K(P,4)+RB»2) THEN SETCOLQ 
R 2,5,2:? "SECONIUH ";:RETL1RN 
2550 IF (W<;V1 OR W>V1+RA) OR (Y<V2 OR 
Y>y2+K(P,4)+RB) THEN SETCOLDR 2,3,2:^ 
"FIRIDIUH ";:RETURN 
2560 'y'E=l: RETURN 

Discovery of Dilithium. 

2600 IF EN<1 THEN 2800 

2605 COLOR 3:PL0T W,Y;? CHRt(125):? «E 

UREKAI You have found DILITHIUM! ! !":Fa 

R Y=l TO iO:FOR Z=15 TO STEP -1 

2610 SETCOLOR 2,3,Z:S0UND 0,160-(ZtlO) 

,10,Y:NEXT Z:NEn Y:SOUHD 0,0,0,0:GOSU 

B JO: SETCOLOR 2,11,2 

2620 -7 CHR*(125):? ,,, "STATUS" :eOSUB J 

1:)(=0:Y=1:G0T0 2640 

2630 ? CHR$(125):? "500 CREDITS": GOSUB 

J2;J(=13:Y=500 
2640 IF STRIG(0)=0 THEN K!P,){)=K!F,.<) + 
Y:K!P,16)=K(P,16)+l:GOT0 2700 
2650 IF STICKi0)=7 THEN 2620 
2660 IF STICK(0)=11 THEN 2630 
2670 GOTO 2640 

Test for lack of energy or equipment 
for drilling. 

2700 IF EN(1 THEN 2000 

2710 POKE 53250, 0:POKE 53249, 0:IF K(P, 

1)>0 THEN 2000 



2720 ? C.HR$(125);? "YOU DO NOT HAVE EN 
OUGH EQUIPMENT LEFT":? "TO CONTINUE DR 
ILLING.": GOSUB J6:G0T0 3000 
2800 POKE 53250,0: POKE 53249,0 
2810 ? CHR$(125):^ "YOU DO NOT HAVE EN 
OUGH ENERGY LEFT TO":? " CONTINUE DR 
ILLING. ";BOSLIB Jfl:GOTO 3000 

Cave-in sequence. 

3000 R=RND!0)tlO-K(P,ll);IF R<7 OR K(P 

,16X1 THEN 3500 

3010 GRAPHICS 18;SETC0L0R 4,3,0:PnsiTI 

ON 5,0:? #6; "RED ALERT! »;Z=0 

3020 FOR Y=30 TO STEP -1: SOUND 0,150 

-Y, 10, 6: SETCOLOR 0,14,Y;NEn Y 

3025 Z=Z+1:IF Z<5 THEN 3020 

3030 SETCOLOR 0,14, 10:30UND 0,0,0,0:PO 

SITION 1,3:? «6;"ChVE IN:":R=INTiRND!0 

Itll) 

3040 POSITION 3,5:? «6;R;" WORKERS LOS 

T!":K!P,14)=KiP,14)-R 

3050 IF R>6 THEN POSITION 3,6:^ «6;"SH 

AFT NOW CLOSED! ":K(P,16)4;iP,i6)-l 

3060 IF STRIGiO) THEN 3060 

3070 GOTO 4000 

IVIeteor storm sequence. 

3500 R=RND!0)t!0-K(P,3):IF R<8 THEN 40 

00 

3510 GRAPHICS 18:SETC0L0R 4,3,0:P03ITI 

ON 5,0:'' #6; "RED ALERT' ":Z=0 

3520 FOR Y=30 TO STEP -1: SOUND 0,150 

-Y,10,6:SETC0L0R 0,14,y:NEn Y:Z=Z+1:I 

F Z<5 THEN 3520 

3530 SETCOLOR 0, 14,10:S0L1ND 0,0,0,0:P0 

SITION 1,3:? #6; "METEOR STOR«!:«:R=INT 

!RND(0)tlO+l) 
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3540 POSITION 3,5:? ftijR;" WORKERS LOS 
T"';KfP,14)=K(P,14)-R:!F R<7 THEN 3590 
3550 POSITION 0,6:R=IHT(RND(0)t5+l) :IF 

KiP.RKl THEN 3590 
3560 K(P,R)=KiP,R)-i:? »i;EQiil0tR-9,l 
OtR); "DESTROYED!" 
3590 IF STRiGiO) THEN 3590 

Monthly report. 

4000 2=K!P,5);IF K(P,1A)<Z THEN Z=K(P, 

16) 

4010 K(P,13)=INTiK(P,13)+K!P,13!»0,l+5 

00+(50»K(P,0))+(Zt25tKiP,8))) 

4020 BRAPHICS 0:SETCOLOR 2,11,0:SETC0L 

OR 4,11,0:P0KE 752,1:G0T0 4100 

4030 FOR Z=l TO 3£.:? ZtiiNEXT ZiRETURN 

4099 REM IN LINES 4100 TO 4200, LOWER 
CASE IN A PRINT STATEMENT REPRESENTS 
THE CORRESPONDING CONTROL CHARACTER. 

4100 '' "b";!Z$="ffi";GOSUB 4030:'' "v"; 
4105 ? "b";:POSITION 19,1;^ "TITAN" :PO 
SITION 39,1;^ "vb";:POSITION 39,2:? "v 

4110 ? "b";:? " HONTHLV REPORT":POSITI 
ON 29,3:? DA;"/1/";YE:P0SITI0N 39,3:? 
"vb";:P0SITION 39,4:'' "v"; 
4120 ? "b";:Z$="iii":GOSUB 4030:? "v"i:G 
OSUB J 7 

4130 ? "b ITEH vACTA vBELL vCHIM 
vDfiED V"; 

4140 ? "b";:Z$="iri":GDSLlB 4030:? "v"; 
4145 ? "b V V V 

• I - - X ■ 

V y ; 

4150 V=8:F0R Z=0 TO A:y=Y+l;POSITION 1 
.Y:W=ZtlO:IF W=0 THEN '' " b STATUS":GO 
TO 4170 

41fc0 T " b "!EQ$(W-9,W) 

4170 FOR );=1 TO 4:P0SITI0N 6tX+9,Y:? " 

v";K(A,Z):POSITION 39, Y:? "v";:NEXT X: 

NEXT Z 

4180 FOR Z=l TO 4:Y=Y+1:P0SITI0N l.Y:'' 

" b ";EX$(ZtlO-9,ZtlO) 
4190 FOR X=l TO 4:P0SITI0N 6»X+9,Y:" " 
v":K(X,Z+12):P0SITI0N 39, Y:^ "v";:NEXT 

X:NEXT Z 
4195 ? "b y V v 

V"; 
4200 ? " ";:FOR Z=l TO 36;'' "ni";:NEXT 

7 
i. 

4210 POSITION 8,23:'? "PrBss TRIGGER to 

continue. ";:GOSUB J6 
4220 IF STRIG(0)=0 THEN GOSUB J5:RETUR 
N 
4230 GOTO 4220 

Efficiency rating algorithms. 



5000 FF=0:FOR Z=l TO 5:FF=FF+K(P,Z) tZ: 

NEXT Z:IF FF<1 THEN FF=1 

5010 EF=K(P,6)»10/FF:IF EF>1 THEN EF=F 

F/!KiP,6)tl0) 

5020 EF=EFI100:FF=K(P,71»2.5:IF FF<0 T 

HEN FF=FF»-2 

5030 EF=EF-FF:FF=(K(P,B)-6)t3:IF FF<0 

THEN FF=FFt-2 

5040 EF=EF-FF+iK(P,9)t5) + !K(P,10)!>5) + ( 

K(P,il)»7.5)+(K(P,12)>10):EF=INTiEF):I 

F EF<5 THEN EF=5 

5050 IF EF>100 THEN EF=100 

5060 IF K!P,9)=0 THEN EF=1 

5070 K(P,15)=EF:RETURN 



New cost algorithms. 

6000 FOR Z=l TO 8;X=0:F0R Y=l TO 4:X=X 

+K(Y,Z1:NEXT Y:X=X/PL 

6010 IF Z>5 THEN CCZ)=INT!CiZ)+(C(Z)tX 

,'(55-Lyi)!:G0T0 6050 

6020 C(Z)=INT(C!Z) + iCiZ)|iX/(25-LV))-(C 

(Z)tl/(25-LV))) 

6030 IF CiZXlOOtZ THEN C(Z) = 100tZ 

6040 IF C(Z)>200ifZ THEN C(Z)=200tZ 

6050 IF Z>6 AND C(Z)<1 THEN C(Z)=1 

6060 IF Z>6 AND C(Z)>50 THEN C(Z)=50 

6070 IF Z=6 AND C!6)>4000 THEN CiZ)=40 

00 

6080 NEXT Z:F0R 2=1 TO 4: FOR Y=8 TO 12 

:K!Z,Y)=0:NEXT Y:NEXT Z:RETURN 

Adjust date. 

7000 DA=DA+1:IF DA=13 THEN DA=1:YE=YE+ 

1 

7010 RETURN 

End of game phase. 

8000 IF YE=2051 AND DA>3 THEN 8500 
8010 R=INT(RND(0)t2i:IF R=0 OR YE=2050 

THEN RETURN 

0500 POSITION 6,23:? " The INSPECTORS h 
ave arrived'";: FOR Y=l TO 10:F0R Z=15 
TO STEP -1 

8510 SETCOLOR 2. 11, Z: BOUND 0,160-(ZriO 
),10,Y:NEXT Z:NEXT Y:SOUND 0,0,0,0:608 
UB JO 
8520 POSITION 3,23:? "Your perforiiance 

is- being a£5eB5ed."i:F0R Z=l TO 200:N 

EXT Z:IF PL=1 THEN 8600 

8530 Z=-1:Y=0:FDR X=l TO PL:IF K(X.O)> 

=Z THEN Z4;:(X,0):Y=Z 

8540 NEXT X:IF Y=l THEN 8590 



8550 FOR X=l TO Y-1:IF K!X,0)=Z THEN B 

570 

8560 NEXT X:GOTO 8590 

8570 FOR X=l TO Y:IF KiX.OXO THEN K(X 

,0)=0:NEXT X:GOTO 8530 

8580 K!X,0)=K(X,16)n00+K(X,15)+K(X,14 

)+KIX,13)+RNDll):NEXT X:GOTO 8530 

8590 SETCOLOR 4, 5,0: SETCOLOR 2,5,0:P0S 

ITION 4,22:' "The supervisor oT";A*(Yt 

10,YtlO+10);"ha5 (-on":GOTO 8640 

8600 IF K(l,0)>19 THEN 8630 

8610 SETCOLOR 4,3,0:SETC0L0R 2,3,0:P0S 

ITION 2,22:? "I ai sorry to report tha 

t you did not"; 

8620 POSITION 0,23:? "achieve enough s 

tatus to gain all TITAN"; :GOSUB 20060: 

GOTO 8700 

8630 SETCOLOR 4,8,0:SETC0LOR 2,8,0:P0S 
ITION 4,22:? "Because of your status y 
ou have won" 

3640 7 " the right to mine all of TI 
TAN" ";: GOSUB J 7 
8700 GOTO 8700 



Sound routines. Common to parts 
one and two. 



10000 DATA T, 162, 400, I, 108,400, T, 81, 60 
0, A, 64, 100 

10010 DATA 8.8.8,8,8,20,28,20,28,20.62 
,54,99 

10020 DATA 240,208,240,97,255,241,144, 
216 

20000 FOR UZ=15 TO STEP -0.5:FOR UY= 
3 TO STEP -hSOUND 0,15-UY,10,UZ:NEX 
T UY:NEXT UZ: RETURN 

20010 FOR UZ=16 TO STEP -2:F0R UY=0 
TO 5:S0UND 0,15-LIY, 10,UZ:NEXT UY:NEXT 
UZ:RETURN 

20020 FOR UZ=10 TO STEP -2:F0R UY=5 
TO 10:EOUND 0,15-LiY,10,UZ:NEXT UY:NEXT 
UZ: RETURN 

20030 FOR UZ=2 TO STEP -2: FOR UY=50 
TO 100 STEP 10:SOUND 0,150-LIY, 10,UZ:NE 
XT UY:NEXT UZ:RETURN 

20040 SOUND 0,UN,10,2:FOR UZ=1 TO 2:NE 
XT UZ:SDUND 0,O,O,O;RETURN 
20050 SOUND 0,255, 10, 4:F0R UZ=1 TO 9:N 
EXT UZ:S0UND-0,O,0,0:RETLiRN 
20060 FOR UZ=16 TO STEP -1:F0R UY=15 
TO 200 STEP 10: SOUND 0,UY,10,UZ:NEXT 
LIY:NEXT UZ:RETURN 

20070 FOR UZ=8 TO STEP -1:F0R UY=55 
TO 105 STEP 10:S0UND 0,UY, 10,UZ:S0UNB 
!,UY-50,90,UZ:NEXT UY:NEXT UZ:RETURN 
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Initialization 

10 CLS:CLEAR300:DEFSTRJ:DEFINTW-Z;DII1 C(12) ,K(4,li>:B0SUEl2Ci000:G 
[]SUB30000!GOSUB50000 

Title display. 

20 CLS:GOSUB20010:J=STRING*(10,32)(-5TRINBt(43,128)+BTRIN6Mll,32 

i;PRINT*l?2,J;J;J;J;0;J;:FQRZ=lT05:FORY=lT01B:REftD!(:PRINTJX+268, 

CHR$(191);:NEXT:REftDUN,UL:G0SUB20100:NEU 

30 PRINTie57,«ic) Ws. Morris ?< J. Cope 19SI" 

40 FDRZ=IT04:GOSUB30010;US=USR(0):UN=162:UL=20:GOSUB20010:GOSUB2 

0100:GOSUS30010:US=USR(0):UN=217:UL=18:GOSUB20010:GOSUB20100:NE){ 

T!FOR2=1T01000:NEXT:60SUB9000 

Playing Parameters. 

100 EOSUB20nO:CLS;PRINTCHRJ(23);:PRINT3144, "Welcome to TITfiN'" 

110 PRINT33BB,"U5e the ARROWS to select the nunber of pU 

Yers.":B0SUB200 

120 PL=),:CLS:G0SLiB20U0:PRINTCHR$(23):PRINTJ39fc,"LEVEL of diffic 

ulty'?":GOSLlE 200 

130 LV=.K+4:CLS:G0SUB20H0:PRINTCHR$(23) 

140 FOR I=! TQ PL:PRINT}-12B+192t2," Player # ";Z;» coisiands b 

ase '■;MiD$iA$,ZU0-9,101:NEn 

150 PRINT8906, "Press ENTER to begin." 

liO GGSUB40000: IFI(>13THEN160 

170 FOR Z=l TO PL:Ka,6)=l:K(Z,13)=500:K(Z,14)=100:KiZ,15)=5:NE;)( 

T ZiGOTO 300 

200 PPINTS84B,""i:Y=l 

210 PRINT'tlt 2 3 4 ■:SOT0250 

220 PRINT" 1 t2t 3 4 ":GOT0250 

230 PRINT" 1 2 t3t 4 ":G0T0250 

240 PRINT" 1 2 3 J4>":GOT0250 




250 PRINT3e48,"";:G0SUB40000:IFI=13 THEN 1(=Y:RETURN 
260 IF 1 <> 8 AND I <> 9 THEN 250 
270 IF I=8THEN Y=Y-2!lF Y<0 THEN Y=0 
280 Y=Y+1:IF Y>4 THEN Y=l 
290 ON Y GOTO 210,220,230,240 

Game play sequence. 

300 GOSUB 7000:GDSUB BO0O:FOR P=l TO PL-.SOSUB lOOOzNEXT PiGOSUB 
iOO0:G0TO 300 

Equipment Management phase. 

1000 CLS:PRINTCHRt(23);:CH=l:AC=0!C2=0 

1010 PRINTilfc,"BASE:";MID$(A$,P»I0-9,10);PRINT3I28,DA;"/l/";YE," 
STATUS »;KfP,0) 

1020 PRINT3256, "EQUIPMENT OWNED COST':PRINT:FOR Z=l TO 

fc:PRINT HID$iEBt,ZtlO-9,10):NEAT Z 

1030 FOR Z=l TO 6:PRINT3348+Zt64,KiP,Z);" ";:PRINT3366+Z»64,C(Z) 
;:KEXT Z 
1040 PRINTS84B, "CREDIT "jKiP.lS);" ":GOSUB 1100:IF CH=7 THEN C 
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H=);/}C=0;GDTD 1300 
1050 SOTO 1020 

Buy & Sell routine. Accessed by Equipment 
Management and Labor Relations phases. 

1100 IF CH>7 THEN CH=CH-7 

1110 IF ftC=0 THEN PRINTS9£!0, "INCREASE"; ;PRINT«1004," "; 

1120 IF AC=1 THEN PRINTS1001, 'DECREASE"; !PRINT3960," "; 

1125 IF C2=0 THEN PRINT3982,HIDt(EQ$,CKtlO-9, 10);:S0TD 1140 

1130 PRINT3982,MID$iMCi,CHflO-9,10); 

1140 60SUB40000 

1150 IF 1=13 THEN 1200 

1160 IF 1=8 THEN hC=0 

1170 IF 1=9 THEN AC=1 

1180 IF 1=10 THEN CH=CHtl 

U90 IF 1=91 THEN CH=CH-l!lF CH<1 THEN CH=7 

1195 GOTO 1100 

1200 IF CH=7 THEN RETURN 

1205 IF C2 THEN CH=CH+6 

1210 IF iAC.= l AND CH=& AND K!P,t>) = l) OR (AC=0 AND CH=8 AND MP, 3 

1>17) OR iAC=l AND KIP.CHXl) THEN 1280 

1220 IF AC=0 AND CH=9 AND K(F,9)=0 THEN 1250 

1230 IF AC=0 AND KiP,I3)<CiCH) THEN 1280 

1240 IF AC THEN k(P,CH)=K(F,CH)-l:K(P,13)=K!P,13)+CiCH); IF CH=7 

THEN K(P,!4)=K!P,14)-1 

1250 IF AC=0 THEN KiP,CH)=KiP,CH)+l:K!P,13;=KiP, 13)-C!CH); IF CH= 

7 THEN KIP, 14)=K(P, 141+1 

1260 IF C2 THEN CH=CK+1:IF CH=8 THEN RETURN 

1270 S0SUB20120: RETURN 

1280 IF C2 THEN CH=CH+1 

1290 UN=255:UL=5:GOSUB20100:PRINTCHR$(23);:RETURN 

Labor Relations phase. 

1300 CLS:PfiINTCHRt(23);:C2=l 

1310 PRINTJlfa, "BASE: ";MIDi{A$,Pt 10-9, 10) :PRINTS128,"HANpnWER";K< 

P,14); 

1320 KtP,7)=K(P,14)-iK!P,ntLV)-iKiP,2itLyt2S-!K!P,3)tLy»3i-iK!F 

,4)tLVt4)-iKiP,5)tLV»5)-(!';iP,&)>LytlO! 

1330 C(9)=KiP,14);Ci!0i=K(p,14)?2;C(lll=KiP,14)t3:Cil2)=KiP,14)« 

4:EN=K(P,6)t500till-LV) 

1340 GOSUB 5000;PR!NT315S,"EFFICIENCY";K(P,15);"y."; 

1350 PRINTJ256, "CONDITIONS SET COST":PRINT:FOR Z=l TO 

4:PRINT HID$(WC$,Z«10-9,10:i:NEXT Z 

1360 FOR 2=1 TO 6:PRINTS348+Z»64,KiP,2+6l;" «;;PRINT3366+ita4,C( 

Zt6);:NEXT Z 

1370 PRINT3848, "CREDIT ";K(P,13;;" ";60SUB llOOiIF CH=7 THEN 2 

000 

1330 GOTO 1340 

Mining phase & graphic display. ^ 

2000 IF K!P,1J<! THEN 3000 

2010 CLS:PRINTS!92, STRING* (64, 131 ):PRINT3B32,STRING$i64, 176) 

2030 F0RY=0T02;FORZ=0T04:R=INT';RND(127)):SET(R,V):NEl(T2:NEnY 

Set the location of Dilithium 3 crystals. 

2040 Vl=INTfRNB (1091+9) :y2=INT(RNDi31)+9):RA=9-LV:RB=INT(RND(2)- 

1) 

2100 H0=0 

2120 IF K{P,1)=0 AND (H0=0 OR K!P,2)=0i THEN 2720 

2130 PRINT2960," "; :PRINTil008, "DRILL RIGiS) ";:!(= 

1:W=124:UN=81:UL=10:>1C=JD:S0T0 2150 



2140 PRINTS1003," ";:PRINT3960, "ROBDHINER(S) ";:;!=2 

:W=65;UN=!08:.JC=JR 

2150 PRINT K(P,>;);:PRINT*W,TC::G0SUB20100 

2160 BDSUB40000:IF!=13THEN2200 

Inkey input triggers the appropriate screen display. 

2165 IF 1=9 THEN PRINT3W, JBi:GQT02130 

2170 IF 1=3 THEN FR!NT3l)),JB;:G0T02140 

2175 IF 1=91 THEN 21B5 

2130 GOTD2160 

2185 FRINTi9fcO, STRING* !63, 32) ;;PRINTS9BB, "CONTINUE" ::PRINTiW.oB: 

;UN=40:BDSUB20100 

2190 G0SUB4O0O0:IFI = !3THEN3O00 ELSE IF U30RI>9 THEN2I35 

2195 PRINT393B," ";:GOT0 2165 

2200 IF KipJXi OR is=2 AND H0=0) THEN G0SuB20140;6GT02160 

2210 K(P,Ai=KiP.)i)-l:UN=4v:G05UB20!00 

2220 I$=INKEVt:IF!$=""THEN2230 EL3EI=ASCiI$);IF;=13THEN 2300 ELS 

E IFn7ANDI<10THENPRINT5lii.JB; 

Horizontal movement phase. 

2230 PRINT3?), JB; : 1FI=8THENW=!«-1 : iFW<66ANDJ = iTKEKIi!=66 

2235 IF W<65 THEN «=65 

2240 iFI=9THENW=W+l:IFK}124THENW=124 

2250 FR!NT3W,JC;;60T02220 

2300 IF X=l AND iW<66 OR W>124) THEN 2220 

2310 IF }>2 THEN 2400 

2320 W=(W-63)>2+l:V=9 

Vertical drilling sequence. 

2330 SET!l!,Vl:yE=2 

2333 IF 1 = 10 THEN Y=V+h0UT255,0;0UT255,i;yE=4: IF Y)40"HENY=40 

2335 GOSUB 2500;PRINT}1008,"ENERGY";EN! :IF ENu OP yE=i THEN 260 



2340 0UT255.O;0UT255,6:I$=INKEY$;;FIS=""THEK233OELSEI=ASC!l$):IF 

1O13TKEN2330 

2360 PR!NT3(W-i)/2t63,JB;:H0=H0+i:RnT0 2120 

Robominer vertical drilling sequence. Allows up & 
down movement. 

2400 !iil=ti;W=iii)-63)t2+3;Y=10:!FP0:NTi;(,Y)=0THEN?i=(|ii-3i '2+63:60T02 

220 

2410 Y=8 

2420 SET;W,Y);I$=INKEYfnFI$=""THEN2425 ELSE I=HSCa$) 

2425 !Fi=10THEHY=Y+l:IFP0INT(W,Vi=0THENY=V-l 

2430 IF 1=91 THEN SETiW.Y) ;y=Y-l; IF Y<8 THEN y=S 

2435 yE=2: GOSUB 2500;OUT255,0:OUT255.1;PRiNT3100P., "ENERGY"; EN; ; I 

F EN<1 THEN 2600 

2440 iF(I<>SANDI<>9) OR YOTHEN 2420 

2445 StTiW,Y):I$=INKEYi:IFIt=""THEN2450 ELSE I=ASCi!$) 

2450 VE=2:SET(W,Y):IFI=9 THEN N=W+i;QUT255,0;nUT255, !;yE=4:IF M> 

126 THEN W=W-1 

2460 IFI=3 THEN W^H-1:OUT255,0;OUT255, 1:VE=4:IF WA THEN W=s+I 

2465 GOSUB 2500:PRINTJ1008. "ENERGY":EN;:IF EN<1 OR yE=l THEN 260 



2470 SET(W,Y);IFIOl3THEN2445 

2480 PRINT3K1,JE;:8QT02I20 

Compare distance of drill rig or robominer to Dilithium. 
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2500 RESET !W,¥):EN=INT(EN-(IO0/KiP, 15) ItyE) 

2510 yE=0;PRINT39ti0,STRlNGt!6;,32!;:PRINT39D0,"";:EET(W,Y!:!F V< 

10 THEN PRINT "SURFACE ';;RETURN 

2520 IF (W<V1-RAI3 OR W>V1+RAM) OR iY<V2-RBt3 OR V)y2+MP,4;-i-RB 

t4) THENPRINT " ICE AND ROCK":; RETURN 

2530 IF (|i«Vl-RAt2 OR M}V1+RA»3) OR (V<V2-RBf2 OR Y>y2+KiP,4)+RB 

ti) THENPRINT "THIRIDIUM ";;RETURN 

2540 IF (W<yi-RA OR W>yi+RA»2! OR (Y<y2-RB OR Y>V2+K(F,4)tRBt2! 

THEN PRINT "SECONiUM "^RETURN 

2550 IF !M(V1 OR dDyi+Rfl) OR iY';y2 OR Y>V2+K(P,4)+RB} THEN PRINT 

"FIRIDIUM "iiRETURN 

2560 yE=l:RETURN 



Discovery of Dilithium. 



2600 IF EN(1 THEN 2300 

2605 PRlNT5960,STRIN6*i63,32);:PRINTi?75, "EUREKA' You have found 

BILITHIUniM"! 
2610 FORJ=lT04:BOSyB300!0:US=USR(0):SOSl!B200!0;GOSUB20nO;NEXT 
2620 PRINT3960, STRING* (63, 32) ;:PRINTS100B, "STATUS";: 5=0: Y=l; GOTO 

2640 

2630 PRINTS960,STRINR$i63,32);;PRINTS?65,"500 CREDITS" ;;X=13;Y=5 
00: GOTO 2640 

2640 0050040000: IF! = 13 THEN KiP,X)=K(P,X)+Y:MP,16)=K\P, !6i + l:G0 
TO 2700 

2650 IFI=9THEN 2620 
2660 1F!=8THEN 2630 
2670 GOTO 2640 



Test for lack of energy or equipment for drilling. 



2700 IF EN<1 THEN 2800 

2710 IF K{p,l)>0 THEN 2000 

2720 PRINT3960, "Ydu od not have enough equipmeiit left to continu 

e drilling. ";:FORZ = n0200:OyT255,0:OUT255,l;NEn:SOT03000 

2800 PRINTJ960, "You do not have enough energy left to continue d 

rilling. ";:F0R2=lT0200:0UT255,0:0UT255,liHEXT 



Cave-In sequence. 



3000 R=RNDilQ)-K!P,Il!;IF R<7 OR f;(P,16)<1 THEN 3500 

3010 CL5;GnSUB20130:PRINTCHRt!23);:PRINT322,"RED ALERT!" 

3030 PRINTi394,"CHVE IN;":R=INT(RNDU01 ! 

3040 PRINTi523,R; "WORKERS LOST' ":KfP, 14)=Kip,14)-R 

3050 IF R>6 TKENPRINTJ658, "SHAFT NON CLOSED! ":KiP,161=KiP,16)-l 

3060 60SUB40000;IF I013 THEN 3060 

3070 GOTO 4000 



Meteor Storm sequence. 



3500 R=RNDilO)-K(P,3):IF R<8 THEN 4000 

3510 CLS:60SUB20130:PRINTCHR$!23);:PRINTS22,"RED ALERT!" 

3530 PRINT3394,"I1ETE0R STORM': ":R=INT!RND(10l J 

3540 PRINTS528,R; "WORKERS LDST'";K!P, 14)=KiP, 141-R; 1FR<7 THEN 
90 



3550 R=!NT(RN0(5));IF KiP.RXi THEN 3590 

3560 i<!F,R)=K!P,R)-l:PRINT3658,M!D$iEB$,10SR-9, 10; i "DESTROYED'" 

3590 60SUB40000;IF I013 THEN 3590 

Monthly report. 

4000 :=KiP,5):IF KiP,16)<Z THEN Z=F;iP,16! 

4010 KiP,i3i=lNTfKtp,13)+K(P,13)t0.it50O+!50»i<iP,0M + in25»KiP,8 

)) ) 

4100 CLS;60SUB20110:PRINT30,"I10NTKLY REPORT" ;PR)NTi29, "TITAN" :FR 

iNT550,DA;"/l/";YE 

4130 PRINT: PRINT" ITEH ACTAEDN BELLDHA CHIM 

ERA DAEDALL1S":PRINT 

4140 FORi=OT06:W=Z»10;IFW=0 THEN PRINT " STATUS "::SDT0417 

4160 PRINT" ";liIDtiEQ$,W-9,10); 

4170 FOR X=l TO 4:PRINTTAB;7+XJli ) ;KiX,Z);:NEXT:PRINT:NEXT 

4180 FOR Z=l TO 4:PRINT" ";l1ID$!EX5,Zt!C-9, 10); 

4190 FOR X=l TO 4;PRINTTAEi7+X*ll) ;K!X,I+12);:NEXT:FRINT:NEXT 

4210 PRINTi979,"Pre5E. ENTER to continue"; :E0SUB20i30 

4220 G03UB4u000:IF I013 THEN 4220 

4230 RETURN 

Efficiency Rating algoritfims. 



5000 FF=0:F0R Z=! TO 5:FF=FF+K!P,Z)tZ:NEXT Z:IF FF<1 THEN FF=1 

5010 EF=t;(F,6)ti0/FF:IF EF>1 THEN EF=FF/!i:iP, 6)110) 

5020 EF=EFJ100;FF=K!p,7)»2.5:IF FF<0 THEN FF=FFi-2 

5030 EF=EF-FF;FF=ii;iP,3)-61»3;IF FF<0 THEN FF=FFJ-2 

5040 EF=EF-FF+(K!p,9J»5) + iK!P,10)S5) + (!<!P,ll)t7,5) + !KiP,12)tl0!; 

EF=lNTiEF):IF EF<5 THEN EF=5 

5050 IF EF>100 THEN EF=100 

5060 IF KiP,9)=0 THEN EF=1 

5070 K!P,15)=EF;RETURN 



New Cost algorithms. 



6000 FOR Z = l TO S:X=0;FOR Y=l TO 4:X = X+K(y,Z) ;NEXT Y:X=X/PL 

6010 IF Z>5 THEN C(Z) = IhlT(C(Z)t(Lu}HM55-Ly) ));SOTG 6050 

6020 CiZ) = INT(C!Z) + iC(Z)tX/i25-Ly);-iLii)t;i/i25-Ly))) 

6030 IF CiZXlOOiZ THEN CiZ) = 100<Z 

6040 IF C(Z))200JI THEN C!Zi=200»Z 

6050 IF Z>6 AND C(Z)(1 THEN CiZ)=l 

6060 IF Z/6 AND C(Z)>50 THEN C(Z)=50 

6070 IP Z=6 AND C(6)>4000 THEN Cu)=4000 

6080 NEXT Z:FOR Z=l TO 4:FDR Y=3 TO 12:K(Z, Y)=0:NEXT V:NEXT Z:RE 

TURN 



Adjust date. 



7000 DA=DA+1:IF DA=13 THEN DA=i;YE=YEtl 
7010 RETURN 

End of Game phase. 

8000 IF YE=2051 AND DA)3 THEN 3500 

8010 R=!NT!RND!2ii:IF R=l OR YE=2050 THEN RETURN 

8500 PRINTi97S,"The INSPECTOR has arrived! "; :eOSUB20140 
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Let PASCAL-80 talk some sense 
into your computer 



■^ 



Phelps Gates, the author of *'APL-80", brings you **Pascal-80" 
for your S-80. Now you can add another dimension to your 
programming skills by using this fast version of the compiled 
language Pascal. 

*'Pascal-80" is a powerful, structured and well-defined language 
for the S-80 microcomputer. This easy-to-use language makes 
writing well-structured, and therefore easily understandable 
programs simple. "Pascal-80" supports most of the features of 
UCSD Pascal, including RECORD, SET (to 256 members), FILE 
(text and record oriented), n-dimensional ARRAY (and ARRAY of 
ARRAY, etc.), global GOTO ELSE in CASE statements, and BCD 
arithmetic accurate to a full 14 places (including log and trig 
functions), 6-digit optional. "Pascal-80" features a 23600 byte 
workspace in 48K, a 1000 line per minute compiler, an easy-to-use 
text editor, and plain English error messages, all the features you 
would expect in a Pascal costing hundreds more. 



Variable Types: .... Boolean, integer, char, real, real6, and text. 

Constants: Maxint, minint, true, false, and pi. 

Files: Input, output, and Ip. 

Procedures: Read, readin, write, writein, reset, rewrite, close, seek, els, 

and poke. 

Functions: Abs, arctan, call, chr, cos, eof, eoin, exp, inkey, in, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and trunc. 




"Pascal-80" does not implement variant records, pointer 
and window variables, or functions and procedures used as 
parameters. 
S-80 32K Disk $99.95 




3oft5j3e, 



I0I\5- 



6 5outh Str««t Milford NH 0305S 
For Orders Only 6O3-673-05a5 



35!0 F0R2=lT0?00:NEn 

3520 PRINTi974,"Vc.ur performance is being assessed. ";:FOR I=i TO 

900:NEn Z;iF PL=1 THEN 8600 
3530 I=-l:y=0:FDR Ji=i TO PL:IF Ka,Oi>=Z THEN 2=Ka,0);Y=i + l 
B540 NEVT >;:IF Y=I THEN S590 
S550 FOR X=l TO V-hlF Ki);,Oi=Z THEN 3570 
3560 NEH i;GOTO 3590 

S570 FOR i(=l TO Y:IF KOi.OXO THEN K!)!,0)=0:Ntn X;SfiTO 8530 
3530 K(X,0;=i<(X,16)tl0O+K!X,15)tKi)l,i4i+KiX,13)+RN0(9i:NEAT iiiGO 
TO 8530 

3590 FRINTi960,"The supervisor of ";l1ID$(A(i,y(!0,101;" has won th 
p right tc mine TiTflN' '"; :G0T08700 
8600 IFK(1,0)>19 THEN 8630 

3610 FRINT4'960," Yoii did NOT achieve enough status to jdne ai 
1 of TITAN! ";:G0Tn8700 
9630 FRINTi960, "Because of your status you have won the right to 

Jiina TITAN':"; 
3700 GOTO 3700 

Initial values. 

"000 DA=0:YE=2050 

901O C(l!=100:C(2)=200:C(3!=300:Ci4)=400:Ci5)=500:C'6i=2000:C(7) 

=5;Ci3l=!0:L(9i = inO;C(10)=200;Cni)=300;Cil2)=400 

9020 EQ$="ririn Rig Robosiiner Deflector RiD Unit Refinery Ener 

giier CONTINUE •'■ 

9030 fi$=" ACTAEON EELLONA CHIMERA DAEDALUS " 

9040 WCt="LabDr PoolShift TiaeWage ScaleRecreationSafety Bonu 

ses CONTINUE " 

9050 Ey5="CREniT MANPOWER EFFICIENCY* VEINS » ° 

9060 RETURN 

Data lines. 

10000 DATA 17, 121,45, 14, 255, 33, 1,1, 45, 122, 237, 97, 67, 16, 254, 237.1 

05, 67, 16, 254, 61, 32, 243, 2!, 32,239, 201 

10010 DhTA217, 33, 255, 63, 6, 60, 126, 254, 123, 56, 4, 47, 246, 128, 119, 43, 

124,184,48,242,217,201 

10015 DATA175, 155, 160, 24, 24, 24, 26, 183, 183, 139, 160, 143, 144, 24, 24, 

24,26,159,131,175,32,32,32,24,24,24,26,32,32,32 

10020 DATA 1,2, 3, 4, 5, 6, 67, 68, 131, 132, 195, 196, 1,1, 1,1, 1,1, 162, 30 

10030 DATA 9,10,11,12,74,75,133,139,201,202,203,204,9,9,9,9,9,9, 

108,30 

10040 DATA 15, 16, 17, 13, 19, 20, 31, 32, 145, 146, 209, 210, 15, 15, 15, 15.1 



5,15,81,45 

10050 DATA 24,25,26,27,87,88,91,92,151,152,153,154,155,156,214,2 

15,220,221,64,20 

10060 DATA 32,33,36,37,96,97,98,100,101,160,161,163,164,165,224, 



Sound routines. 

20000 JH="":FORZ=lTD27:READY:JH=J(1+CHR$!y):NE>;T 

20010 IFPEEK! 16396) =201THEN20030 ELSE CKD"T":U=VHRPTR!Jn):U=PEEK 

(U+2.U256+PEEK(U+l):!FU>32767THENU=U-65536 

20020 DEFUSRO=U: RETURN 

20030 U=VARPTRiJM):P0KE16526,PEEK(U+l):P0KE16527,PEEK(U+2):U=PEE 

K !U+2) t256+PEEK (U+ 1 ) : IFU>32767THENU=iJ-65536 

20040 RETURN 

20100 POKEU+1,UN:POKEU+2,UL:US=USR(0):RETURN 

20110 FORUZ=IT04:UN=40:UL=9:GOSUB20100:UN=BO:6QSUB20100:NEXT:RET 

URN 

20120 DUT255,0:0UT255, 10: RETURN 

20130 UL=3;F0R UN=250TO100STEP-10:GOSUB201O0:NEXT:RETURN 

20140 FORUZ = lT030:OUT255,0:OUT255,6:NEn:RETURN 



Flash screen routine. 

30000 JF="":F0RZ=1T022:READt!JF=JF+CHR$(Y):NEaT 

30010 IFFEEK!16396)=201THEN30030 ELSE U=VARPTR(JF):U=PEEK:(U+2)»2 

56+PEEK!UH):IFU>32767THENU=U-65536 

30020 DEFUSR0=U: RETURN 

30030 U=VARPTR!JF!:P0KE16526,PEEK(U+l):P0KE16527,PEEK(Ut2):U=PEE 

Kini2)«256+PEEK(Utl):IFU>32767THENU=U-65536 

30040 RETURN 

Get keyboard input. 

40000 IJ=INKEY$:IF!$="»THEN40000ELSEI=ASC(Ii):RETURN 

Initialize paclced graphic strings. 

50000 JR="":F0RI=1T010:READY:JR=JR+CHR$(Y):NEXT 
50010 JD="":F0RZ=1T010:READY:JD=JD+CHR$(Y):NEXT 
50020 JB="":F0RZ=lTD10:READY:JB=JB+C.HRt(Y):NEXT:RETURN 



o 



S!?IS33Sa!arrXS3SS9^aS3SSS'SSSS3sssa9S?<¥'^BSIsXS3eB3SSSaESS99^3s3sg3S3BE 



December 1981 49 




lATARI-DV 

SURVIVE 



by Randy Massey 

Survive is a graphics action game for 
one or two players, requiring a 32K 
Atari, one or two joysticlis, and a disk 
drive. It is included as a bonus pro- 
gram on this month's Atari Disk Ver- 
sion. 

In the single-player version of this 
arcade-style game, you are fighting for 
survival against attacking aliens, in a 
space quadrant peppered with mines. 
Should you survive, you will face more 
aliens in 1 1 more quadrants, each more 
dangerous than the last. 

The mines are actually your allies (as 
long as you don't collide with them 
yourself). You can lure an attacking 
alien to its destruction by positioning 
yourself on the opposite side of a mine, 
using the joystick. ColUding with a 
mine yourself will not affect your 
strength, but will reduce your score by 
ten points. Each quadrant has fewer 
mines than the previous one, making it 
more difficult to lure the aliens to their 
doom. 

Both you and the aliens have laser 
beam weapons to fire at each other. 
You aim and fire by positioning the 
joystick in the desired direction and 



pressing the fire button. If you hit an 
alien, it will be destroyed; if an alien 
hits you, you will incur injuries of 
20%. When your injuries reach 100%, 
you've had it. 

Every quadrant contains some star- 
bases. Docking at one of these restores 
5% of your injuries and adds 25 points 
to your score. Docking is accomplished 
by simply bumping into the base. If an 
alien destroys a starbase, you lose 25 
points from your score. 

In the two-player version, the second 
player uses the second joystick to con- 
trol the attacking alien force. This adds 
interest and challenge to the game, 
since the aliens can then be 
maneuvered more skillfully to avoid 
the mines. The ahens' firing is still con- 
trolled by the computer. 

This program uses a modified 
character font, which is loaded at the 
beginning. This special font contains 
the peculiar-looking ahens and other 
special characters that are used 
throughout the game. In addition, a 
Machine Language routine, located in 
page six of memory, returns the 
joystick positions. © 
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by Maxwell Su 

Bobsledding is a graphics game for 
the Apple requiring 32K RAM, Ap- 
plesoft, game paddles, and a disk 
drive. It is included as a bonus pro- 
gram on this month's Apple Disk Ver- 
sion. 

Bobsledding originated in 
Switzerland at the beginning of the 
19th Century and since then has been 
popular, especially in the European na- 
tions. The four-man bobsled competi- 
tion was introduced in the Winter 
Olympic Games in 1924, and the two- 
man bobsled in 1932. This computer- 
ized version is a simulation of bobsled- 
ding, and reveals the reason for the ex- 
citement over this sport, where victory 
is measured in hundredths of a second. 

This program employs a "real-time" 
clock which is reasonably accurate for 
a program running under Applesoft. 
The course consists of a two-mile track 
(3520 yards) which is randomly 
generated for each run. The slightest 
deviation from the course results in a 
crash and total destruction of the 
bobsled — and the end of that run! A 
low time is displayed, as well as the 
speed, distance travelled, and elapsed 
time. The low time is initially set to an 
arbitrarily large amount of time and, if 
your bobsled run is made in less time, it 
is then updated. You must finish the 
course (of course) to qualify for the 
low time. 

There are nine levels of difficulty, 1 
being the easiest and 9 the most dif- 
ficult. After selecting the level of dif- 
ficulty, press the button on Paddle 
to begin the run. Paddle is then 
used for steering, and Paddle 1 for 
braking. Dress warmly, and good luck! 
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KONANE 



by Norman Whaland 

Konane is a TRS-80® Machine 
Language board game for one player 
requiring 32K RAM. It is included as a 
bonus program on this month's TRS- 
80® Disk Version. 

In Konane (pronounced ko-NAH- 
nay), you play against the computer on 
an 8-by-8 board filled with equal 
numbers of both players' pieces. The 
goal of the game is to be the last player 
to make a move. With the exception of 
the first move, all moves are made by 
jumping. When a piece is jumped by 
one of the other player's pieces, it is 
removed from the board; in this 
respect, the game is similar to checkers. 
Multiple jumps are allowed, but only 
in a straight line. You can't zig-zag 
through a number of pieces. 



The main game strategy is to isolate 
the other player's pieces, leaving them 
surrounded by empty squares so that 
they cannot move. When there are only 
a few pieces left on the board, each side 
tries to plan movements so that it has 
the last move, and thus wins the game. 

The computer has four levels of 
play. Level 1 is the easiest, with the 
computer moving within a second; and 
Level 4 is the hardest, with the com- 
puter moving in about 15 seconds. 



Konane is stored on the disk in two 
parts. Part 1 contains a thorough set of 
instructions, complete with graphics 
examples, and Part 2 is the actual game 
program. © 
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K-Byters 



Y-WING 



A TRS-80® K-Byter by Roger W. Robitaille, St., SoftSide 

Playing Instructions 

There are five significant control keys on the TRS- 
80® iceyboard, the four arrow keys and the space bar. The 
arrow keys control the screen action as though they are 
steering the target. If the target is below the cross-hair, you 
can make it rise by pressing the up-arrow. The arrow keys 
have to be struck repeatedly for substantial movement. 
The space bar acts as the trigger to fire the missiles. 

Playing Considerations 

When the program asks for your skill level, the value 
you declare is considered your handicap. Five different 
factors are set from this handicap. The first is the speed at 
which the target appears to move. Second is the delay time 
imposed between allowable missile shots and third, the 
number of missiles allowed for the mission. The fourth is 
the number of damage hits a fighter can sustain. And the 
fifth is the number of targets which must be destroyed. 
Their combined effects offer anything from a turkey shoot 
to a very sticky situation. 

Program Type 

The title of this program suggests the theme of one of 
the best-seUing Ramware™ products, X-Wing II. This is 
not to suggest that Y- Wing is nearly as sophisticated as the 
X-Wing II product. It's simply a shoot-em-up fighter 
game. 

Key Speed Points 

Although BASIC is not known for its speed, an accept- 
able response speed is essential to make Y- Wing a satisify- 
ing game. The fighter movement routine is easily the most 
active routine in the program. By placing this routine at the 
beginning of the program and keeping the GOTOs and 
GOSUBs to a minimum, you can be assured that response 




time will stabilize when included in more complicated pro- 
gramming. The time consumed on GOTOs and GOSUBs 
varies according to the number of Hnes occurring between 
the beginning of the program and the given routine. 

Another useful speed technique used in Y- Wing is to in- 
itialize the most used variable, "I" in the DEFINT state- 
ment. BASIC stores variable names in a variable table in 
the order that these variables are encountered. The search 
time used in finding variables is an important factor. The 
most commonly used variables should be initialized in the 
order of their use. Particular functions will execute faster 
when dealing with an integer variable rather than the 
slower, single precision variable assumed by Level II when 
precision is unspecified. 

Program Expansion 

This program stands as a quality K-Byter. However, it 
has three intended purposes. The first purpose is obvious 

— to write a K-Byter. Second, this program is to serve as 
an example of a new, very intensive type of documentation 
in SoftSide. Third, Y-Wing will serve as an action 
subroutine for the Parsec™ Interpreter (diversion's^"^ first 
Envyrnment^'^. 

There is another reason for our presenting this little pro- 
gram. Y-Wing is very expandable. We are considering it an 
ongoing project and will be pubhshing expansion modules 
in the coming months and welcome your comments 
and input. 

How would you like to try to add: 

— return fire? 

— intelligent return fire? 

— a different type of ship graphics? 

— a keyboard repeat? 

— a landing procedure? 

— a bail out procedure? 

— a full instrument panel? 

— different kinds of weapon systems? 

— bombing runs on fixed targets? 

— sound? 

Let's hear your ideas! 



Initialization. 
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er: 




Y=140; 
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,,,The fighter's blanking variable, Erases the Hghter's last 


RL=RL-1: 


ifiooe. 


...Decrement the reload cycle variable. 


CA=CHR»;Y;+rHR$(191i+CHR«(Yl: 


FRINTSi010,CHRt{30): 


...Defines the crosshairs graphic. 


...Clean the reload message off the video. 


U=ETRING$[I2,32) 




...This prepares the variable far the explosion graphic. The 


Player Input. 


LEFTt and RISHTt functions used elsewhere would cause errors if 




it weren't filled with u characters first, 


120 E=INKEY«!lFB<)""THEN200 




.,,Siiiiple live-key routine. If the player touches the 


Skill Level Control. 


keyboard, go check out what it's about. 


105 PRIir3448,"H0« GD05 ARE 'I'QLi (l-lOO)";: 


Left/Rlgtit Screen Boundary Check. 


,,.SH11 recuest message displayed near center screen, 




IMPUTA: 


I30IF()(+N-{INT{()(+N)/64)»64)=0)0R(X+N-IINT((UN)/64)«64)>62)THEN 


...Actual request. 


no 


!=VflL(A)! 


,,, Loosely read: If the fighter image would be printed in the 


,,.For error protection, get input as a string even though a 


first column or the last two coluiins then try again. 


r,uiTiber is called for. 




1=30- INT (i/4)+l; 


Screen Refresh. 


,,,The number of targets set to be 30, less one-quarter of 




declared skill. 


140 PRINTiX.Itj: 


TF=;+:)3; 


,, .Erase the fighter iiiage. 


,,.The nuiTiber of missiles allowed is set equal to the number 


PRINTJ539,C)(;; 


of targets plus three times skill level. 


,,,Print the cross-hairs, just in case. 


r:f1:INT;T/5!+2: 


)(=X+N; 


...The number of damage hits (near misses) the targets are 


,,,Add the offset to the present position, thus updating X. 


allowed is equated to ore-fifth the number of targets plus two. 


FRINT5X,IM$;! 


Z=10-INT!I/10): 


,,,Finally, print the fighter image. 


,.,The game speed controller 1 is set to be one-tenth of the 


GOTOllO 


skill level. 


.,.Do it— again, 


RS=I0-INT(I/10); 




,,.The reload speed (pause before missile can be re-fired! set 


utilities. 


same as I, 




CIS: 


198 CLEflR50!FRINT38639-MEf1-49:END 


...Ready to go to wck. Clean screen. 


199 SflVE"YWING/SUB"iSftVE"YWING/S!JB;riEND 


PRINT}539,Cl(,r: 




. , .Display the cross-hairs. 


Steering Control. 


BOTG4 00 




,,, Start olayi launch first fighter, 


2001FB=CHR$(B)ANDF(INT!X/64)»64i>lN=-2 




...Left Arrow pressed, Alter position two to the left. 


Random Fighter Movement. 


ELSE 




IFB=CHR»(9)ANDX-!INT(X/64)U4)<61THENN=2 


110 N=RND(3)-2+(MI(RND(3)-2)J! 


,, .Right Arrow pressed. Alter position two to the right. 


...This function will only generate the numbers -65. -64, -63, 


ELSE 


-1, 0, 1, 63, 64, and 65. These are offset values which can be 


IFB=CHR$(10)ANDX<95eTHENN=64 


added to the fighter's present position to simulate movement to 


...Down Arrow pressed. Alter position one line down on the 


the 3 immediately adjoining positions. 


screen. 


IFUN;0GR)(+N>1021THENG0T0110 


ELSE 


...Must make sure that this randomly generated PRINTS position 


IFB="["ANDX>63THENN=-64 


IS legal (0-1023). Further, position 1023 would generate screen 


,,,Up Arrow pressed. Alter position pne line up on the screen. 


roll and must be avoided. 


ELSEG0T0240 


ELSEi 


,,,The key pressed is not one of the arrows; keep looking at 


FCRIMTGZiNEXTI; 


240, 


...Slow down loop; main skill control. 
IFRL)CTKENFR1NT31010,"REL0ADINB":; 


205 G0Tai40 


,,.In all the cases where there were arrows depressed, go to 


...If the reload cycle is still active, PRINT message to 


line 140 for screen refresh. 


screen, 
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Missile Fire. 






select a graphic character to print over the left side of the 


240 IFB=" "ANDTP>OANDRL=OTHEN 


fighter graphic. 


...H the pUysr has pulled the trigger (space bar) and you 


PRINT8X,CHR$(RND(64)+127);! 


still have some aissiles and you are not in reload you may... 


...Print the randon character. 


TP=TP-1: 


NEXTl i 


...Fire the missile (decrenent TP). 


,..Do it again, Sam. 


RL=RB! 


H=H+l! 


...Reset the reload cycle. 


...Document the damage hit. 


V=62! 


IFH=HMTHEN60T0310 


...Initialize the right missile position variable. 


...If the number of damage hits is equal to the maKimum 


F0RI=960T0539STEP-60i 


allowed, the fighter is destroyed anyway, so go to fighter 


...Control loop for missile trace. 


destruction section. 


PRINTSI,CHR»(Y);!PRINTJI+V,CHRI(Y);! 


ELSEGOT0140 


...Print missile trace graphics, both left and right sides. 


...Time to freshen the screen and get that fighter out of the 


PRINTJI," "jiPRINTJI+V," ";! 


way. 


...Erase missile trace graphics, both left and right sides. 


400 T=T-l! 


i;=V-9! 


...Knock that victory; another one bites the dust. 


...Adjust right side controlling variable. 


IFT<1EDT0500 


NEXTl! 


...Looks like we wiped them out; time to celebrate. 


...Loop. 


ELEEPRINTJ0,'TAR6ETS"iT,"fiISSILES"iTPj: 


PRINTS539,C)(;i 


...Print a progress report for the player. 


■■. Reprint cross-hair graphic. 


FORI=lT0500!NEXTIi 


IFX>537flNDX<542THENG0Ta305 


...A straight timing loop to allow player tiie to read message 


...If the target is in the damage zone, go to line 305 to 


before play proceeds. This is usually a bad technique because 


inflict damage. 


there are other ways to let the player decide when he is done 


290 GOTOllO 


With the information. It is used here because I think that it's 


...End of keyboard cosnand options. If the player missed the 


more important to keep it a challenge by keeping the game 


target or simply pressed the wrong key (or a key whose use has 


pressing the player. We'll see. 


not yet been defined), start over. 


H=0: 




...Zero the accumulated hit counter. 


Fighter damage. 


X=RND(3)«44+RND(50)! 




...This is a special function to randomly devise a new 


305 IF.i(=5370RX=541THEN320 


starting position for the nei.t pidgeon— I mean fighter. 


...If the fighter's cursor position is either 537 or 541, it 


CIS: 


has received King damage. Go to line 320 for damage graphics 


...Kash the blood off the screen. 


and assessment. 


GOT0140 




...and go freshen the picture one more time. 


Fighter destruction. 




310 FORI=1TD50! 


victory Routine. 


...Initialize a loop for fifty cycles. 




X»=RI6HT$(X»,ll)+CHRt(RND(64)+127)! 




...The method used to create destruct graphics is quite 


500 FORI=1T0100! 


primitive. The essential process is to randomize one of the 64 


...Literally every other PRINT statement in this prograi 


graphic characters and add it onto the end of a 


closes with a semicolon because of the necessity of keeping 


twelve-character string. This string is split in two parts and 


close screen control. The one below does not, so that it will 


printed in two halves, one over the other. The effect is fairly 


trigger screen roll causing an effect coarsely similar to the 


good for its siiplicity. 


"Star Wars" introduction (this is a K-byter, remember that). 


PRINTJ474,LEFT$(X»,6)|! 


...One hundred "atta-boy's" coming up. 


...Print the top half of the destruct graphic. 


PRINT39eO,"THE EMPIRE IS SAFE - THE FORCE BE HITH VOU": 


PRINTS53B,RlGHT»lXt,i)|i 


...My Herol!!!!!!!!! 


...Print the bottou half of the destruct graphic. 


FORJ=1T020! 


NEXTIt 


...A probably unnecessary delay loop. 


...Continue animated effect. 


NEXTJ,l! 


GOT0400 


...A compound NEXT use. Otherwise, the cerecony continues till 


...Animated graphic coiiplete. Proceed to docunent and display 


completion. 


event at 400. 


CLSi 




...Nash the screen of all the graffitti. 


Damage routine. 


INPUT"NEW GAME (Y/Nl'jA: 




...Get the Nielsen rating. 


320 F0RI=lTO10i 


IFA="Y"G0T0100 

...He loves me... he loves me not. -^ 


...This graphic is equally rough. For 10 cycles randonly 
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INVADER CATCH 

An Applesoft K-Byter by Matt 
Laurence, Lincoln, MA 

Some nasty aliens from the galaxy of 
Bombay are dropping bombs on you 
and your cities. Luckily for you, the 
bombing systems of Bombay are not 
very sophisticated, and can only drop 
one bomb at a time. The bombs, on the 
other hand, are fast, and will fall to the 
cities below before your neutralizer can 
move from one end of the screen to the 
other. In these cases, when you cannot 
reach the bomb in time to catch it, you 
may fire one of your phasers at it. Hit- 
ting a bomb with a phaser does not add 
any points to your score, but it does 
destroy the bomb. 

You start out with 100 points. Each 
time a bomb gets past you and hits the 
ground, you lose 10; each time you 
catch one, you gain 10. If your score 
drops to zero, the game ends and you 
lose. But if your score reaches 200, the 
aliens will retreat, and you win. Be 
warned: You have only five phasers, so 
don't be trigger happy. Paddle con- 
trols the movement of your bomb 
neutralizer and button fires a phaser. 
Good luck! 




REH -INVADER CATCHER* 


15 


SOSUB 500: FOR A = 1 TO 15: NEXT 


100 


HPLOT X - 8,145 TO X + 8,145 


BY HATT LAURENCE 




A: HCOLOR= 0: SOSUB 500 


101 


RETURN 


1 HONE : VTAB 12: PRINT TAB( 13 


17 


IF H = 145 AND (R < X + 8 AND 


200 


FOR N = 1 TO 100: SO = PEEK 


); -INVADER CATCHER": FOR = 




R > X - 8) THEN HCOLOR= 0:S 




( - 16336) + PEEK ( - 16336 


1 TO 1000: NEXT D: H6R ; HONE 




= S MO: 60SUB 500: FOR A = 




): NEXT N: RETURN 


; HCOLOR> 3: VTAB 21: 80SUB 




1 TO 200: NEXT A: SOSUB 1000 






300 




: SOTO 3 


300 


HPLOT 0,160 TO 15,150 TO 30, 


2 HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 


18 


IF S < 1 THEN TEXT : HONE : VTAB 




160: H^LOT 45,160 TO 60,150 TO 


279,159 TO 0,159 TO 0,0:SH = 




21: PRINT "EARTH IS DEAD!": END 




75,160: HPLOT 90,160 TO 105, 


5:1( = 140:S = 100: 60SUB 100 


20 


IF H > 150 THEN HCOLOR= 0: SOSUB 




150 TO 120,160: HPLOT 135,16 







500: HCOLOR= 3:S = S - 10: FOR 




TO 150,150 TO 165,160: HPLOT 


3 R = INT ( RND (1) t 240) + 20: 




A = 1 TO 200: NEXT A: SOSUB 




180,160 TO 200,150 TO 215,16 


HCOLOR= 3: HPLOT 0,159 TO 2 




1000: SOTO 3 




0: HPLOT 230,160 TO 245,150 TO 


79,159 


21 


IF PEEK ( - 16287) > 127 AND 




260,160 


4 H = 10 

5 Y = (( PDL (0) / 255) » 250) + 

20 
i HCOLOR= 3 




SH > THEN HCOLOR= 3: HPLOT 
X,145 TO R.H: GOSUB 200: HCGLOR= 


310 


FOR N = 1 TO 50: HPLOT INT 
( RND (1) 1 270) + 10, INT ( 




0: HPLOT X,145 TO R,H: SOSUB 
500: SH = SH - 1: SOTO 3 




RND (1) » 150) + 10: NEXT H 
: RETURN 


8 IF X > 260 THEN X = 260 


23 


IF Y < 75 THEN X = X - 15 






9 IF X < 20 THEN X = 20 


24 


IF Y > 175 THEN X = X + 15 


500 


HPLOT R,H TO R - 4,H - 9 TO 


10 SOSUB 100: FOR A = 1 TO 15: NEXT 


30 H = H + 15 




R + 4,H - 9 TO R,H: RETURN 


A: HCOLOR= 0: SOSUB 100: HCOLOR= 






1000 


HONE : VTAB 21: PRINT "SCOR 


3 


40 


SOTO 5 




E: "S: RETURN q 
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BACK ISSUES 



SOFTSIDES FROM THE PAST 

If you like what this issue of SoftSide has to offer, you 
should see what's waiting for you in SoftSide bacl^ issues! You 
may feel that you've missed out on many of our programs that 
appeared before you became a subscriber. It's not too late to 
do something about it. You won't have to miss a thing because 
we still have back issues available to complete your SoftSide 
library! But, order now as some of our more popular issues are 
already out of stock and others are dwindling quickly. 

Listed below are ;ill of our past issues wiili liieir l-'FATURI- 
programs and the sy^itoms ihey'rc for. Tor a more compleie 



index of all the programs and articles offered in each of the 
back issues of SoftSide plea.se refer to the May, 1981, i.ssue. 
Each issue costs $3.50 for the magazine only. Those issues 
marked with an asterisk are also available with the programs on 
cassette for $9.95 or on disk for $14.95 (except DV issuc',). 

The enhanced Disk Versions (DV) contain an extra program 
for each system. The TRS-8()® DV began with the September, 
1981, issue. The Apple DV began October, 1981, and the 
Atari DV started in November, 1981. Each enhanced DV 
co^,ts $19.95. 



SoftSiile r/tSSO' Filithm: 

October 1978 - .\<)» AvMllable 

November 1978 — "I'.iid Zone" 
)cc«inber 1978 — "Sania I'aravia Kn Fiumaccio" 
^*JaBiiary 1979 — "Round the Horn" 
.,*Fcbruary 1979 — "Form 1040" 

*March 1979 — "Personal Finance " 

* April 1979 — "Safari" 
*May 1979 — "Dog Star Advenlnre" 
*June 1979 — "Atlanlic Balloon Cro.ssinjj;" 
*July 1979 — "All Star Baseball" 

* August 1979 — "Meltdown" 
September 1979 — Not Available 
♦October 1979 — "Weslward 1847" 
jNovember 1979 — Not .ALvailablc 
*nttember 1979 — "Oil Baron" 
Manuary 1980 — "Moving Maze" 
February 1980 — Not Available 
*March 1980 — "Broadway" 
April 1980 — Not Available 
*May 1980 — "Star Trek" 
*June 1980 — "Micro Millionaire" (s,, 
*July 1980 — Adventure issue 3| 

PROG 80 (TRS-80'^ only) ''^mmmim 

March 1979 — Not Available 

May 1979 — "Clock Routines" 

July 1979 — "Histogram and BASIC Statistics" 

September 1979 — "DOS-How to stop lost data errors" 

December 1979 — "Computer Telephone Dialing" 

February 1980 — "Hexmem" 

April 1980 — "Redefining Level II Keyboard" 

June 1980 — "Z-80 Disassembler" 

August 1980 — "Varlist"-A program to list variables 

SoftSide: Apple Edition 
♦January 1980 — "Dog Star Adventure" 
♦February 1980 — "Connection" 
^*March 1980 — "Treasure Hunt" 
♦April 1980 — "Jig-Saw" 
♦May 1980 — "Invaders" 
June 1980 — Not Available 
♦July 1980 — "Pork Barrel" 

SoftSide: Apple, Atari and TRS-80® Combined Edition 
♦August 1980 — "Caribbean Cruising" — Apple 

"Master's Golf" — Atari 

"Sailplane" — TRS-80® 

September 1980 — Not Available 

♦October 1980 — "Developing Data Base 11" — All 
"Moonlanding" — Apple 
"World Series" — Atari M 

"Earth-Port 11 " — TRS-80® 



Sl^ 



♦November 1980 — "Developing Data Base III" 
"Collision" — Apple 
"Trench" — Atari 
"Kricgspiel" — TRS-8»* 



All 



■*^ 



♦December 1980 — "Developing Data Base IV" — All 

"Baseball" — Apple 

"Speedcllo" — Atari # jr" 

"Kidnapped" --- TRS-80^'- # ■ 

♦January 1981 — "Developing Data Base \ " - All ^ | 

"Convoy" — Apple and S-80 

"Angle Cannon" — Atari 

"Ship Destroyer" — TRS-80® 

♦February 1981 — "Developing Data Base VI" — All 
"Miner" — All 

"Mini-Golf" — Atari and TRS-80" 
"Long Distance" -- TRS-80 " 

♦March 1981 — "Developing Data Base VIl" - Ail 
"Strategy Strike" — Apple and IRS-HO" 
"Flags" — Alari 
^^;Volcano" —TRS-80^ 

♦April 1981 — "Battle At Sea" — Apple 

"Convoy" — Atari 
^, "Dominoes" — TRS-80" 

♦May 1981 — "Galaxia" — Apple 
"Dodge" — .Atari 
"Orienteering .-\( Jac(|ue's Coulee" IRS-SO 

♦June 1981 — "Old (ilory" - All 

."Word-Search Pu//lc (ieiieraior" — Ail 
"Anidlisl" — IRS-SO' 

♦July 1981 — "Chemistry Drill" All 

"Kidnapped" — Apple and .\(ari 
"Magic Paper Calculator" IRS-SO'- 

♦August 1981 — Not Available 

♦September 1981 — Not Available 

♦October 1981 — "Envyrn™ — TRS-80" 
"Leyte" — All 

"Developing Data Base" — Apple 
"Character Generator" — Atari 

♦November 1981 — "Titan " — All 

"Aircraft Commander" — Apple 
"Electronics Assistant" — TRS-80 "^ 
"Developing Data Base" — .Atari 



Use the bind-in card in this issue to order or send a list of 
the back issues you'd like, with payment of $3. .'50 per 
magazine. 

SoftSide Publications 

515 Abbott Drive 

Broomall, PA 19008 

For the magazine/media combination, send $9.95 per cassette 
and magazine, $14.95 per disk and magazine, or $19,S5 per DV 
and magazine to: 

SoftSide Publications -^ 

6 South Sireet 

Milford, NH 03055 



fpmw4 



Atari' 



CHRISTMAS TREE 



An Atari K-Byter by Gary Domrow, 
Fort Wayne, IN 



The message of this K-Byter is self- 
explanatory. It draws a brightly- 
colored Christmas tree (what other 
kind is there?) with flashing lights, and 
prints the message "Merry 
Christmas". 

Line 10 sets up the graphics for 
mode 5 and begins to draw the tree. 
Line 20 fills in the tree. Line 30 draws 
the red pot at the bottom, and line 40 
draws the star at the top. Line 50 draws 
the trunk of the tree and prints "Merry 
Christmas". Lines 60-80 repeatedly 
plot and erase the bhnking lights of the 
tree. 

Season's Greetings to all! 



10 GRAPHICS 5:SETCOL0R 2,12,6:SETC0L0R 
1,3,4:SETC0L0R 0,1,2:C0L0R 3:PL0T 55, 
30:DRAHT0 40, 7: POKE 752,1 
20 POSITION 25,30iPOKE 765,3:XI0 18,16 
,0,0,"S":COLOR 2 

30 PLOT 35,39;DRA«T0 45,39:PL0T 34,38: 
DRABTO 4i,38:PL0T 33,37:DRA»T0 47,37:P 
LOT 33,36:DRA«T0 47,36 
40 PLOT 40,6!DRAHT0 40,0:PL0T 37,3:DRA 
«T0 43, 3: PLOT 38,1:DRAHT0 42, 5: PLOT 38 
,5:DRfiMTD 42,1 

50 COLOR liFOR 1=39 TO 41: PLOT I,31:DR 
AHTO I,35:NEn I:? j? ' HERR 

Y CHRISTHAS" 

60 FOR B=2 TO SsCOLOR B:PLOT 44,17:PL0 
T 29, 29: PLOT 33, 20: PLOT 30,24 
70 PLOT 46,22:PL0T 39,12:PL0T 51,27:PL 
OT 43,24:PL0T 35,25:PL0T 36,16:PL0T 40 
,20:PL0T 45,27:PL0T 41,28 
SO FOR H=0 TO 160:NEXT H:NEXT BrEOTO 6 
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Enwmese 



ENVYRN™ SCREEN CHOICES 



by Roger W. Robitaille, Sr. 



The TRS-80™'s graphics capability is, essentially, a 
special set of pixel combinations that are treated by the 
computer just as if they were letters, punctuation, or 
numbers. Many screen options are available to this 
group which could not be supported in computers with 
more complex and exclusive graphics capabilities. In 
other words, the TRS-80™'s graphics capability is 
primitive. However, it does present special oppor- 
tunities, along with its restrictions. Much of the 
following will only pertain to computers which have a 
graphics character set accessible in text mode. 

MAIN VIEWING SCREEN — Almost every En- 
vyrn™ application will make some use of its ability to 
tie map tiles together into some larger visual image. 
The Main Viewing Screen (MVS) on the TRS-80™ is 
one of four configurations by which related map tiles 
can be displayed together. 

SCREEN PAGE — A Screen Page is a user-defined 
set of information windows which together will define 
what information will be presented on the screen, and 
where and how it will be shown. 

There are five practical MVS choices in the TRS- 
80™ graphics structure. They are: 
0% Text Screen — Text only, no main MVS. 
10% Peek Screen — Small (18 chr x 6 line) MVS in the 
upper left corner of the screen. 

30% Travel Screen — Medium size (30 chr x 10 line) 
MVS in the upper left corner of the screen 
75% Look Screen — Large (48 chr x 16 Hne) MVS with 
a narrow (16 chr x 16 line) area still available to be 
assigned other information 

95% Full Screen — Nearly the entire useable screen is 
dedicated to being the MVS. At (@) location #### 
is the information point of any keyboard activity. 



Figure 1 



SCREEN KEY 

Resolution Table for MVSs 



Tile Size 
1x3 
2x6 
3x9 
4x12 
5x15 



Text 

N/A 
N/A 
N/A 
N/A 
N/A 



Peek 

6x6* 

3x3* 

2x2* 
1x1(47%) 
1x1(69%) 



Travel 

10x10* 

5x5* 
3x3(90%) 
2x2(63%) 

2x2* 



Look 

16x16* 

8x8* 
5x5(91%) 

4x4* 
3x3(91%) 



Full 

16x20* 

8x10* 

6x5(82%) 

4x5* 

3x4* 



— 100% useful (nn%) — % useful 



As I examine the table in Figure 1 , 1 note the follow- 
ing: The two tile sizes with the lowest resolution are 
completely efficient under all MVSs. The third lowest 
tile size averages over 90% efficiency. Since these may 
be the most commonly used tile sizes, I feel assured 
that these five MVSs are indeed the most practical to 
be selected. The larger tile sizes will be used primarily 
for special video displays so their efficiency is less 
significant. I hope that future Envyrn^"*^ enhancements 
will allow the MVSs to be completely user-defined. 



Figure 2 



MVS LAYOUT 

IB 30 48 60 

lEEEEEEEEEEEEEEEEEiTTTTTTTTTTTsLLLLLLLLLLLLLLLLsFFFFFFFFFFFFXXn 
2EEEEEEEEEEEEEEEEEiTTTTTTTTTTT:LLLLLLLLLLLLLLLLiFFFFFFFFFFFFXXXX 
SEEEEEEEEEEEEEEEEEsTTTTTTTTTTTiLLLLLLLLLLLLLLLLiFFFFFFFFFFFFXXXX 
4EEEEEEEEEEEEEEEEE!TTTTTTTTTTT!LLLLLLLLLLLLLLLL:FFFFFFFFFFFFXXXX 
SEEEEEEEEEEEEEEEEEsTTTTTTTTTTTsLLLLLLLLLLLLLLLLsFFFFFFFFFFFFXXXX 
6EEEEEEEEEEEEEEEEE!TTTTTTTTTTTiLLLLLLLLLLLLLLLL:FFFFFFFFFFFFXXXX 
7/////////////////!TTTTTTTTTTT!LLLLLLLLLLLLLLLL!FFFFFFFFFFFFXXXX 
BTTTTTTTTTTTTTTTTTTTTTTTTTTTTTiLLLLLLLLLLLLLLLLiFFFFFFFFFFFFXXXX 
9TTTTTTTTTTTTTTTTTTTTTTTTTTTTT!LLLLLLLLLLLLLLLL:FFFFFFFFFFFFXXXX 
10TTTTTTTTTTTTTTTTTTTTTTTTTTTT!LLLLLLLLLLLLLLLL:FFFFFFFFFFFFXXXX 
n////////////////////////////:LLLLLLLLLLLLLLLL!FFFFFFFFFFFFXXXX 
12LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL!FFFFFFFFFFFFXXXX 
13LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLJFFFFFFFFFFFFXXXX 
14LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL!FFFFFFFFFFFFXXXX 
ISLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLjFFFFFFFFFFFFXXXX 
liLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLiFFFFFFFFFFFFXXXX 



Key: 

E — In use under all MVSs. 

T — In use under all except Peek Screen. 

L — In use under Look and Full Screens. 

F — In use as MVS only under Full Screen. 

X — Always in use as Text. 

: — Border area where text will reject text windows 

and graphics will reject graphics windows. 

/ — Border area where graphics warning will be 

offered. 

o 
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by John D. Adamson 

Electronics Assistant is a 
TRS-80® utility program for 
helping in the design of elec- 
tronic circuits. It requires 16K of 
RAM. 

There are two main facets of a 
computer. One is the program 
that tells the computer how to 
do something. The other is the 
actual electronic circuitry that 
makes the computer understand 
and use the information provid- 
ed by the program. 

Electronics Assistant is a utili- 
ty for the "other" side of com- 
puters, and for a variety of elec- 
tronic design appUcations. Its 
main function is to help in the 
preparation of a circuit design 
by eliminating most of the 
lengthy and repetitive calcula- 
tions that would otherwise take 
up a large amount of the 
designer's time. The circuits it is 
programmed to handle range 
from attenuators to filters to coil 
design. There is a circuit here for 
almost any need. Enjoy! 

Variables 

All non-string variables except 
those listed below are integers 
and are used for display I/O. 

C$: String value of the 

INKEY$ routine. 

CC: Return from the INKEY$ 

routine as the numeric value of 

the input. 

CO$: Used in the PRINT 

USING function. Set to 

R$:'Used'in the PRINT 
USING function. Set to 

F$: Set to the word 

"FARADS". 

H$: Set to the word 

"HENRIES". 



}. U'i 

.,„,^aaHBaBa 






1 


asasnaaacaBKiaBasaBaaEBacaBBaBBaBBsssaBssaaaaBaBsasaaaaaasssaaB 
R : = l.Z" AL- VALUES 'H CH'^S 


1 
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Program introduction. 

100 CLS!PRINT3454,CHR$ (23) "ELECTRONICS 

NEH 

110 CLS!PRINT5338,CHR${23t"PRESENTED BY' 

120 PRINTJ590,"JQHN D. ADAMSDN" 

ItO FOR)(=lT01200!NEn 



Program selection routine. 



SSSISTANT";F0RX=1T01000! 



170 
Ri- 
180 
190 
200 
210 
220 
230 
240 
250 
2t0 
270 



CLEAR100!CLS;PRINTTflB(23)!"SELECTIONS"iPRINTSTRING$!i4,"= 
■M»»».«#":CO$="»».tttr':F»="FARADS"!H»=«HENRIES" 
PRINT:PRINTTflB(10);"l - ACTIVE BAND PASS FILTER DESIGN" 



PRINTTftB(10);"2 • 
PR!NTTAB(10);"3 
PRINTTAB(10);"4 ■ 



1"4 



PRINTTAB(IO), 

PR1NTTAB(10);"7 

PRINTTAB{10)|"8 ■ 

PRINTTAE(10);"9 

PRINTJ910, "ENTER YOUR SELECTION 

CLS:IFCC(=0THEN170 



PI-NETWORK ATTENUATOR" 

ACTIVE HI6H/L0W PASS FILTER DESIGN" 

PASSIVE HIGH/LOW PASS FILTER DESIGN" 

BAND-PASS FILTER DESIGN" 
COIL DESIBN" 

IMPEDANCE-MATCHING NETWORKS DESIGN ■ 
IMPEDANCE-MATCHING NETWORKS DESIGN - 

IMPEDANCE-MATCHING NETWORKS DESIGN - HI" 
G0SUB421O 



I" 
11" 



290 ONCCGOT0300, 430, 070, 1420,2130,2610,2940,3380,3020 



Active Band-Pass filter design. 



300 GDSUB4230 

310 FRINT5457,"THIS PROGRAM IS FOR ACTIVE 

320 B0SUB4250!B0SUB480 



PASS FILTERS" 



340 INPUT»ENTER B"!QiV=(ABS(A)/Q) 
350 INPUT'ENTER CENTER FREQUENCY <HZ)"!F 
360 INPUT"ENTER VALUE OF CI l C2 IN <UF>";L,M 
370 PRINTS576,"":PRINTCHR»(31) 
380 L=(L»lE-06)jn=(M»lE-06):W=6.2B32»F 

390 H=l/(V«L>W)!l=l/(QI(L+M)«W)!J=(H«I)/(H-I);K=ABS(A)«H«(l+L/M) 
400 PRINT"R 1 ="USINGR«;H 
410 PRINT'R 2 ="USINGR»|J 
420 PRINT"R 3 ="USINGR«;K 
430 PRINT3740,"ALL VALUES IN OHMS"; 
440 PRINTJ794,"F0R A CENTER FREQUENCY OF ";Fi" HZ."; 
450 G0SUB4260 

460 IFCJ="N"THEN170ELSEIFC»="Y"THENG0SUB480ELSE450 
470 G0T0330 

400 CLSiPRINT811,"C 1"; !PRINTJ159,"R 3"; !PRINT}102, "HH"; 
490 PRINT}197,"R r;!PRINTS215, "C 2"i!PRINT}166,"X UV; 
nr';!PRINT3294,"); HX"; 



Xn"!!PRINT3395,"R 



500 PRINT8230,"X - 

510 PRINT}358,"X 

520 PRINT3422,"X + XXX"; 

530 PRINT3486,"X XXX"; 

540 PRINT3550,"XXXX"; 

550 Y=l;F0RX=29T0117iSET(X,Y)iNEXT 

560 Y=10!FORX=OT08:SET(X,Y)!NEXT!FORX=17T044!SET(X,Y):NEXT 

570 F0RX=53TO75:SET(X,Y)iNEXT 

580 Y=14;FORX=102T0127;SET(X,Y)!NEXT!Y=19!FGRX=65T075!SET(X,Y)iN 

EXT 

590 y=29!FORX=OT0127!SET(X,Y)!NEXT!X=24!FORY=3T010;SETIX,Y);NEXT 

Y 

600 X=65!F0Ry=lT05!SET(X,Y):NEXTY!Y=8!SET(X,Y)iY=9!SET(X,Y) 

610 X=1I7!FORY=1T014;SET(X,Y):NEXTY!X=24!FORY=9T017:SET(X,Y);NEX 

TY 



620 FORY=21T028!SET(X,Y):NEXTY;X=6: 
ETURN 

PI-Networl< Attenuator. 



;F0RY=19T02e;SET(X,Y):NEXTY;R 



630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 

760 
770 

780 
790 
800 

810 
820 

830 
840 

850 
B60 

URN 



GQSUB4230 

PRINT3462. 

G0SUB4250 

GGSUB790 

PRINT3656, 



PI-NETWCRK ATTEKUftlOR PROGRAM" 



'ENTER DESIRED ATTENUATION <1 
THE PAD" 



i)"i;INPUTM 
JINPUTD 



;D;!PRINT3676,"THE ATTENUATIO 



PRINJ3721, "ENTER IMPEDANCE OF 

Y=liX=10;Y=(,05»W) 

Rl=Dt({XtY4l)/(X[Y-l)) 

R2=(D«RI>{X[Y-!))/{D+Rl) 

PRINT3512,CHR?i31) 

PRINT3576,"R 1 = "USINSRliRl; 

PRINTJ640,"R 2 = "USINGRI;R2; 

FR]NT3612,":7> IN = <I) OUT 

lW;"DB"| 

GDSUB4260 

!FCt^"N"THEN170EL3EIFC5="Y"THEN780EL3E760 

G0SUB790!50TD670 

CLS 

PRINT322, "PI-NETWORK CIRCUIT" 

PRINT3256,"IN"!FRINT395,"R2";iFRINT3270,"R I"; 

PRINT3304,"R 1 OUT" 

Y=4;F0RX=0T059! SET (X,Y);NEXTX!FCRX=6eT0127; SET (X.Y)! NEXT 

Y=2:iFORX=OT0127;SET(X,Y);NEXTX 

■<=30iF0Rv=4TGll;SET(X.Y);NEXTY;FDRy=15T322; SET !X,Y): NEXT 

X=9B;FORY=4TOil!SET(X.Y)!NEXTy;FORY=15T022;SET{X,YJ!NEXT!RET 



Active High/Low Pass filter design. 

870 CLB 

880 GOTO 1090 

090 CLS 

900 PR1NT3102."XXXX"; 

910 PRINT3166,"X XXX"! . 

920 FRINTJ230,"X + XXX"; 

930 PRINT3294,"X XXX"; 

940 PRINT3358,"X XXX"; 

950 PRINT3422,"X - XXX"; 

960 PR1NT3486,"X XXX"; 

970 PRINTJ550,''XXXX OP-AMP"; 

930 Y=l;FDRX=37T045:SET(X,yi;NEXn 

990 FQRX=55T0113:SET(X,YiiNEXTX 

1000 X=37:F0RY=1T010;SET(X,Y);NE);ty 

1010 XM13;F0RY=1T02B!SET(X,Y);NEXTY 

1020 Y=10:F0RX=0T021iSET(X,Yt;NEXTX 

1030 F0RX=28T045:SET(X,Y);NEXTX 

1040 F0RX=52T075;SET(X,Y)iNEXTX 

1050 X=60;F0RY=11T017; SET :X,Y);NEXT;F0RY=21TD30;SET(X,Y): NEXT 

1060 V=15!F0RX=102T0127;SET(X,Y):NEXTX 

1070 Y:10:F0RX=69TG75;SET(X,yi:NEXTX;X=69;F0RY=lBT02B;SET(X,Y);N 

EXTY 

1080 Y=28:F0RX=69TOH3;5ET(Z,Y);NEXTX;Y=30:FORX=OTO127:SET(X,y); 

NEXT! RETURN 

1090 G0SUB423O 

1100 PRINT3452,"THIS IS A HI-PASS/LCW-PASS ACTIVE FILTER DESIGN 

PROGRAM" 

1110 GQSUB4250 

1120 CLS!PRINT3455," FOR HI-FASS ENTER 1, FDR LDW PASS ENTER 
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2";:G0SUB4210 

1130 CL5:ONCCGOT01140,1170!GQron20 

1140 FRINT"HI-PASS DESIGN" 

1150 PR!>IT324,"R l"; ;FRINT32C4,"C"; !FRINT3216,"C";iPR!NT3413,"R 



1160 
1170 
1 180 

'- I 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 



GaSUB900:GOTai320 
PRINT'LOW-PfiSS DESIGN" 
PRINT324,"C l"i:PRINT3204," 



iPRINT3216,"R"i:PRINT3413,"C 



S0SUB90O 

PRINT3704. "ENTER 3DB CUTOFF FREQUENCY (HZ>"i ! INPUTW 

PRINT3768, "ENTER VALUE OF C2 <UF>"| : INPUTA 

Z=AtlE-06 

)(=6.28319«W 

R=.707/(X<Z)!B=2»A 

PRINT3704,CHR$(31) 

PRINT3704,"C 1 ="USINGCOJ;B! :PRINT" UP"; 

PRINT3720," C 2 ="USINGCO»|Ai!PRINT" UF"i 

FRINT3737," R ="USINGRI;R;:PRINT" OHNS"; 

PRINT37B2,"- AT fl FREQUENCY QF";W|"HZ. -" 

G0SUB4260 

IPC$="Y"THEN1120ELSEIFC»="N"THEN170ELSE1300 

PRINT3704, "ENTER 3DB CUTOFF FREQUENCY <HZ)"j ! INPUTW 

PRINT376B, "ENTER VALUE OF C (UF)"; ; INPUTA 

Z=AtlE-06:X=6.28319»*' ' 

R=.707/(ZU)!B=2«R 

PRINT3704,CHR$(31) 

FRINT3704,"C ="USINGCO«;fi;!PRINT" UP"; 

PRINT3720,"R 1 ="USINGR»|R|!PRINT" OHMS"; 

PRINT3741,"R 2 ="USINGR«;B! iPRINT" OHtlS": 

PRINT3782."- AT A FREQUENCY OF";«;"HZ. -" 

60TG1300 



Passive High/Low Pass filter design. 



1420 G0SUB4230 

1430 FRINT3453,"THIS PROGRAM IS FOR PASSIVE HIGH/LOW PASS FILTER 

S," 

1440 G0S'JB4250 

1450 CLS!PRINT3456, "ENTER A <1> FOR HIGHPASS OR A <2) FOR LOWPAS 

S";:G0SUB421O 

1460 IFCC>20RCC<=0THEN1450 

1470 G0SUB2O5O 

1480 IFCC=1THEN17S0 

1490 PRINT344B. "ENTER THE INPUT/OUTPUT IMPEDANCE IN OHMS"!lNPUTR 

1500 PRINT3512. "ENTER THE 3DB FREQUENCY IN MHZ":INPUTF 

1510 F=FI1E06 

1520 )(=R/(6.2832l'Fi 

1530 Y=1/(6.2B32«F«R) 

1540 H=1(:I=Y 

1550 PRINT3576, "ENTER THE NUMBER OF POLES (2,3,4 OR 5)";INPUTQ 

1560 1FQ<2G0T0I550 

1570 IF0;6G0T01550 

1580 PRINT33e4,CHR$(31) 

1590 X=H:Y=I 

1600 ONSGOT01550, 1610, 1640, 1670, 1720 

1610 PRINT3512, "ELEMENT 1 ="; (Y«1.414) |F« 

1620 PRINT5576, "ELEMENT 2 =";U1.4U|H$j 

1630 PRINT3704,"AT A FREQUENCY 0F";F/!E6l"«HZ"!G0TG1760 

1640 PRINT3512. "ELEMENT 1 = ELEMENT 3 =";YiFt 

1650 PRINT3576, "ELEMENT 2 =";2n!H? 



1660 PRINT3704,"AT A FREQUENCY 0F";F/lE6;"l1HZ"iS0T01760 
1670 PRINT3512, "ELEMENT 1 ="|Y».7654;F» 
1680 PRINT3576, "ELEMENT 2 ="|ni.848;H$ 
1690 PRINT3640, "ELEMENT 3 =";Y>1.848;F$ 

1700 PRINT3704, "ELEMENT 4 =";K«.7654;H* 

1710 PRINT3768."AT A FREQUENCY 0F"iF/lE6j "MnZ'sGOTOWbO 

1720 PRINT3512, "ELEMENT 1 = ELEMENT 5 ="iYf.618iF« 

1730 PRINT3576, "ELEMENT 2 = ELEMENT 4 =";Xn.618|Ht 

1740 PRINT3640, "ELEMENT 3 =";Y»2!F$ 

1750 PRINT3768,"AT A FREQUENCY QF";F/1E6|"MHZ" 

1760 G0SUB4260 

1770 IFC»="N"THEN170ELSEIFC«="Y"THEN1450ELSE1760 

17B0 PRINT3448, "ENTER THE INPUT/OUTPUT IMPEDANCE IN OHMS"iINPUTR 

1790 PRINT3512, "ENTER THE 3DB FREQUENCY IN MHZ":INPUTF 

1800 F=F«1E06 

1810 X=R/(6.2S32»F) 

1820 Y=1/(6.2832«R«F) 

1830 H=X!l=Y 

1840 PRINT3576, "ENTER THE NUMBER OF POLES (2,3,4 OR 5)":INPUTQ 

1850 IFQ<2G0T01840 

1B60 IFQ>660TD1840 

1870 PRINT3384,CHR$(31) 

1B80 ){=HiY=I 

1890 ONQGOT01840, 1900, 1930, 1960,2010 

1900 PRINT3512, "ELEMENT 1 ="; {1,414J)() jH» 

1910 PRINT3576, "ELEMENT 2 ="; (1.414IY) iF$ 

1920 PRINT3704,"AT A FREQUENCY 0F";F/lE6|"nHZ":G0T01760 

1930 PRINT3512. "ELEMENT 1 = ELEMENT 3 ="|)(iH» 

1940 PRINT3576, "ELEMENT 2 ="i2«Y|F» 

1950 PRINT3704,"AT A FREQUENCY 0F"iF/lE6j"MHZ'!60TQ17i0 

1960 PRINT3512, "ELEMENT 1 =";)(«, 7654jH» 

1970 PRINT3576, "ELEMENT 2 ="iY»1.848|F$ 

1980 PRINTJ640, "ELEMENT 3 =";ni.848;H» 

1990 PRINTJ704, "ELEMENT 4 =")Y».7654iFJ 

2000 PRINTJ768,"AT A FREQUENCY 0P";F/lE6;"flHZ"!S0T01760 

2010 PRINT3512, "ELEMENT 1 = ELEMENT 5 =";U,618;H« 

2020 PRINTJ576, "ELEMENT 2 = ELEMENT 4 =";YJ1.618iF$ 

2030 PRINT3640, "ELEMENT 3 ="iU2iH$ 

2040 PRINT3768,"AT A FREQUENCY OF"iF/lE6;"l1HZ":B0T0176O 

2050 CLS;PRINT386,"2 

2060 PRINT3105,"4" 

2070 PRINT3192, "INPUT" 

2080 PRINT3203, "r'!PRINT}223, "3"; :PRINT3243, "5"j ;PRINT3249, "ETC; 
« , 

2090 Y=4!FOR)(=lT04l!SET()(,Y):NEXT)(:FORX=4BT079iSET(X,Y)!NEXT:FOR 

X=86T012l!SET(X,Y):NEXT 

2100 Y=17;FORX=lT012l!SET(X,Y)!NEXTX 

2110 X=23!GOSUB2120!X=63!GOSUB2120!X=103:GOSUB2120 

2120 F0RY=4TQ8!SET(X,Y)!NEXTY;FQRY=12T017!SET(X,Y)!NEXT;RETURN 



Band-Pass filter. 

2130 G0SUB4230 

2140 PRINT3392,"THIS PROGRAM IS FOR DESIGNING BAND-PASS FILTERS. 

II 

2150 PRINT3519,"THE FILTER'S BAND WIDTH SHOULD BE BETWEEN 15 4 5 

7. " 

2160 PRINT3589,"0F THE CENTER FREQUENCY OF THE FILTER." 

2170 S0SUB4250 

2180 G0SUB2490:PRINT3384, 
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2190 INPUT'ENTER BAND WIDTH HHZ"iF 

2200 INPUT"ENTER THE CENTER FREQUENCY OF THE FILTER t1H:";C 

2210 C=C«lE06iF=F«lE06 

2220 INPUT"ENTER THE INPUT/OUTPUT IMPEDANCE" sR 

2230 INFUT"ENTER THE NUMBER OF POLES <3,4 OR 5>"iN 

2240 IFN<30RN>=iTHEN2230 

2250 PRINTS320,CHR$(31) 

2260 X=R/(i,2832<F) 

2270 Y=l/(i,2e32IRtF);D=C[2 

2280 0NNG0T02230, 2230, 2290, 2330, 2410 

2290 PRINT8320, "ELEMENT 1 ^ ELEMENT 3 ="iY|F» 

2300 PRINT"BOTH HME A PARALLEL INDUCTOR 0F":.0253/(D<Y);H$ 

2310 PRINT"ELEMENT 2 ="i2n;HJ 

2320 PRINT"WITH A SERIES CAPACITOR OF";.0253/(D«(2»);))|F»!GOT024 

70 

2330 PRINT3320, "ELEMENT 1 ="; .7654tYiF$ 

2340 PRINT'WITH A PARALLEL INDUCTOR OF"; .0253/lD«(Y».7454) liHt 

2350 PRINT"ELENENT 2 ="jl.848J)(!H» 

2360 PRINT'HITH ft SERIES CAPACITOR OF"; .0253/!DI (1.84Bn! ) ;F$ 

2370 PRINT"ELEMENT 3 ="; 1.848tY)F» 

2380 PRINT"WITH A PARALLEL INDUCOR 0F"| .0253/ (D« (1.848JY)) ;H» 

2390 PRINT"ELEMENT 4 ="i,7654ll(;H$ 

2400 PRINT'WITH ft SERIES CAPACITOR OF"; ,0253/(D» (.7654ni 1 iFliOO 

T02470 

2410 PRINTS32C, "ELEMENT 1 = ELEMENT 5 =";.618«Y;FJ 

2420 PRINT'BOTH KITH A PARALLEL INDUCTOR OF"; .0253/ (D»(.618»Yi ) ; 

H( 

2430 PRINT"ELEMENT 2 = ELEMENT 4 ="; 1.618I)!;H< 

2440 PRINT'BOTH WITH ft SERIES CAPACTOR OF"; .0253/ (DXl.ilBtX) ) ;F 

( 

2450 PRINT"ELEMENT 3 =";2«Y;Ft 

2460 PRINT"MITH A PARALLEL INDUCTOR OF"; .0253/(D>(2«Yl ) ;Ht 

2470 G0SUB4260 

2480 IFC$="N"THEN170ELSEIFC»="Y"THEN2180ELSE2470 

2490 CLS 

2500 PRINT918,"C 2" 

2510 PRINTS40,'C 4" 

2520 PRINT912B,"IN; L 1" 

2530 PRINT}157,"L 3" 

2540 PRINTJ179,"L 5 OUT" 

2550 Y=liF0R)(=0TD33!SET(l(,Y):NEn)(!F0RK=4OT045;SET{):,Y):NEn 

2560 F0R)(=52T077:SET(X,Y)!NEni(iF0RK=84T089:SET(X,Y)!NEn 

2570 F0RX=96T0127i5ET()(,Y)!NEn)( 

2580 Y=13iFDR){=0T0127!SETl)l,Y)!NEXT)( 

2590 X=16!G0SUB2600!X=27iG0SUB2600:)(=58!G0SUB26O0!l(=69:G0SUB260O 

iX=102:60SUB2600!X=113!GOSUB2600 

2600 FORY=lT05!SET()(,Y)!NEnY!FORY=9T013!SET();,Y):NEniRETURN 



Coil design. 



2610 CLS:G0SUB4230 

2620 PRINT3332,"THIS PROGRAM IS USED FOR DESIGNING COILS" 

2630 PRINT9461, "AFTER THIS PAGE CLEARS, ENTER EITHER -" 

2640 PRINT8516,"ft <1> KNOWING THE RADIUS, LENGTH 4 THE « OF TURN 

S OR H <2>" 

2650 PRINTJ580, "KNOWING THE RADIUS, « OF TURNS !< THE L ^UH>," 

2660 G0SUB4250 

2670 CLS:GOSUB4210 

2680 IFCC>20RCC<=0THEN2610 



2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2B10 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 



IFCC=2THEN2810 



■; INCHES)" 



!NFUT"ENTER THE COIL LENGTH <INCHE5)";E 
INPUT"ENTER THE NUMBER OF TURNS" ;N!CLS 
R=fl[2iS=Nt2;T=RliS 
L=T/((9»A)+(10«B)) 
PRINTJ192, 

PRINT"THE COIL ="USINGR«;L; iFRINT" UK," 
PRINT:PRINT"USIN6";N;"TURNS OF WIRE." 
PRINT"WITH A LENGTH OF";B; "INCHES. " 
PRINT'AND A RADIUS 0P";Aj"INCHE5. " 
G0T02920 
PRINTS192, 

INPUT"ENTER THE COIL RADIUS (:NCHES)";A 
INPUT"ENTER THE COIL LENGTH < INCHES)" ;B 
INPUT"ENTER THE INDUCTANCE OF THE COIL <UH)";L 
PRINTS192, 

P=((9»A)+(10«B));R=A[2 
1(=(LIP)/R!Y=SQR(>1) 

FRINT"THE NUMBER OF TURNS NEEDED IS "LSINERJiY 
PRINTiPRINT'WITH A COIL RADIUS ■OF";ft:"lNCHES" 
PRINT"AND A LENGTH OF";B; "INCHES 
FRINT"WITH AN INDUCTANCE OF";L;"UH." 
B0SUB4260 
IFC$="Y"THEN2610ELSEIFC$="N"THENI70ELSE2920 



"THIS NETWORK IS THE CLASSIC T) TYPE. 



CAN BE 



AMOUNTS WHICH ARE ABOVE 4 BELOW TH 



Impedance-Matciiing Networic design i. 



2940 GOSUB4230 

2950 PRINT3323,"THIS PROGRAM IS FOR DESIGNING IMPEDANCE-MATCHING 

NETWORKS" 
2960 PRINT3451, 

USED FOR " 

2970 PRINT3513, "MATCHING <R1) 
E VALUE OF <RL)" 
2980 E0SUB4250 
2990 G0SUB3210 
3000 PRINT:PRINT 
3010 INPUT'INPUT <R1)";R 
3020 INPUT" INPUT <C0> IN (PICO-FARftDb; " 
3030 INPUT" INPUT THE LOADED <G) OF THE 
3040 INPUT-INPUT THE OPERATING FREQUENCY 
3050 INPUT"INPUT <RL)";S 
3060 PRINT}448,""lPRINTCHR$(31) 
3070 C=C»1E-12!F=F«1E06 
30B0 P=1/{6.2B«F*C) 
3090 H=(gtR)+P 
3100 A=R«(Q[2ti; 
3110 Y=SQR((A/S)-1) 
3120 J=A/(S+Y);I=S«Y 
3130 PRINT"<< ALL VALUES IN OHMS )>" 
3140 PRINT")( <L1) ="USINGR«;H 
3150 PRINT"X (L2) ="USINGRJiI 
3160 PRINT'X <C1) ="USINGR»jJ 



:iRcyr 
:mhz, 



"iP 



3170 PRINT3673,"AT A FRECIUENCY 0F"iF/lE06l"MHZ."! 

3180 60SUB4260 

3190 IFC»="V"THEN3200ELSEIFCJ="N"THEN170ELSE3180 

3200 G0SUB321O!GDT030OO 

3210 CLS 

3220 PRINT323, "HATCHING NETWORK" 



62 



December 1981 



SoftSide 



3230 PRINT370,"C 0" 


3780 X=23:F0Ry=lT019STEP2:SET(X,y)!NEXTY 


3240 PRINT386,"L 1" 


3790 Y=19!FORX=23TO0STEP-3!SET(X,Y)!NEXTX 


3250 FRINT5111,"L 2" 


3800 PRINT3397,"]-- DEVICE TO BE MATCHED": RETURN 


3260 PRINT}192,"R 1" 


3810 FORy=4T08:SET(X,Y)!NEXTy!FORY=12T016!SETIX,Y)!NEXT:RETURN 


3270 PRINT3226,"C 1' 




3280 PRINTJ252,"R L" 




3290 V=4!F0R)(=3T010: SET (X,Y);NE){T)l!F0R)l=19T042!SET(](,Y)! NEXT 


Impedance-Matching Network Design-Ill. 


3300 F0R)(=51T092:SET()(,r):NEn);!F0R)i=101T0123:SET(l(,Y)!NEU 




3310 YM4!F0RX=3T0123iSET(X,Y)iNEU)( 




3320 )l=3;G0SUB3370;l(=71:GOSUB3370:)(=123!G0SUB3370 


3820 GOSUB4230!GOT03990 


3330 V=l:F0RX=:0T023STEP3!SET()(,Y)!NEn)( 


3830 PRINT:PRINT!lNPUT'INPUT <R1>";T 


3340 X=23:FQRYMTD19STEP2!SET(K,Y)!NEnY 


3840 INPUT"INPUT <RL>"jR 


3350 Y=19:FDRX=23T0CSTEF-3;S£T(X,y):NEXTX 


3850 INPUT-INPUT THE LOADED <Q> OF THE CIRCUITED 


3360 PRINTS397/3---DEVICE TO BE «ftTCHED":RETURN 


3860 PR!NT3448,CHR$(31) 


3370 F0RY=4T08:SET(X,Y):NEXTY:FDRY=12TD16!SET(X,Y)!NEXT: RETURN 


3870 F=F«1E06!C=T/Q 




3880 X=(T/R)/1(Q[2+1)-1T/R)) 




3890 D=R>SaR(X)!V=S«T 


Impedance-Matching Network design II. 


3900 U=T>(R/D) 




3910 E=(V+U)/(Q»Q+1) 




3920 FRINT"ALL VALUES IN OHMS"!PRINT 


3380 G0SUB4230 


3930 PRINT»X <C1> ="USIN6R»;C 


3390 PRINT5387/THIS PROGRAM IS FOR DESIGNING IHPEDANCE-ilATCHING 


3940 PRINT"X <C2> ="USINGR»jD 


NETWORKS" 


3950 PRINT"X <L1> ="USINSR»jE 


3400 PRINTi513,"THIS NETWORK IS BEST SUITED TO MATCHING COLLECTO 


3960 GOSUB4260 


R ihpedances" 


3970 IFC»="N"THEN170ELSEIFC»="Y''THEN60SUB4030ELSE3960 


3410 PRINT3577,"0F LESS THAN 50 OHMS TO LOAD IMPEDANCES OF 50 OH 


3980 G0T03830 


MS OR GREaTER." 


3990 PRINT3387,"THIS PROGRAM IS FOR DESIGNING INPEDANCE-MATCHING 


3420 60SUB4250 


NETWORKS" 


3430 G0SUB3640 


4000 PRINT3516,"THE IMPEDENCE OF <R1) SHOULD BE LARGER THE THE L 


3440 PRINT3512,!lNPUT"INPUT <R1>"|R 


.OAD <RL>" 


3450 INPUT'INPUT <C0> IN (PICO-FARADS) "iC 


4010 PRINT3578,"IF NOT THE VALUE OF <L1> BECOMES ALMOST IMPOSSIB 


3460 INPUT'INPUT THE LOADED (Q> OF THE CIRCl)IT"|B 


LE TO REALIZE" 


3470 INPUT"INPUT THE flPERATINS FRESUENCY (MHZ./";F 


4020 SOSUB4250!6QSUB4030!GOT03830 


3480 INFUT"INPUT (RL;"!S 


4030 CLSiPRINTiPRINT 


3490 PRINT3384,CHR$(31) 


4040 PRINT"MATCHING NETWORK" 


3500 C=C>1E-12:F=F11E06 


4050 PRINT394,"L 1" 


3510 P=l/'(6.28IFtC) 


4060 PRINT3192,"R 1" 


::20 H«!QIR)*P 


4070 PRINT3205,"C 1" 


3530 B=R»((Q»Q)+11 


4080 PRINT3239,"C 2" 


3540 X=((R«((Q«Q)+1))/S)-1 


4090 PRINT3252,"R L" 


3550 Y=SQR(X)!j=y«S 


4100 YM!F0RX=3TD58!SET(X,Y)!NEXTX 


3560 I«B/!l!+Y! 


4110 F0RX=67T0,123:SET(X,Y)!NEXTX 


3570 PRINTiPRINT'ALL VALUES IN OHMS" 


4120 Y=16!F0RX=3T0123!SET(X,Y)!NEXTX 


3580 PRINT'X <L1> ="USINSR$!H 


4130 X=3!60SUB4190!X=29:SOSUB4190 


3590 PRINT"X <C1) =="USINSR$iI 


4140 X=97!GOSUB4190!X=123!60SUB4190 


3600 PRINT"X <C2) ="USINGR$iJ 


4150 Y=l!F0RX=OT015STEP3:SET(X,Y):NEXTX 


3610 PRINT3675,"AT A FREQUENCY 0F"iF/lE06;"l1H2. " j 


4160 X=15!FORY=lT019STEP2:SET(X,Y)!NEXTy 


3620 60SUB4260 


4170 Y=19iF0RX=15T00STEP-3!SET(X,Yl!NEXTX 


3630 IFC»="N"THEN170ELSEIFC»="Y"THEN3430ELSE3620 


4180 PRINTJ393,"]— DEVICE TO BE MATCHED": RETURN 


3640 CL5 


4190 FDRy=4T08:SET(X,Y):NEXTY 


3650 PRINT323, "MATCHING NETWORK" 


4200 F0RY=12T016:SET(X,Y):NEXTY:RETURN 


3660 PRINT370,"C 0" 




3670 PRINT386,"L 1" 




3680 PRINTJU1,"C 2' 


InkeyS routine. 


3690 PRINT3192/R 1" 




3700 PRINT3226,"C 1" 




3710 FR!NT3252,"R L" 


4210 C»=INKEYIiIFC$=""THEN4210 


3720 Y=4!FORX=3T010!SET(X,Y);N£XTX;FORX=19T042:SET(X.Y)iNEX! 


4220 CC^VAL(C$)!RETURN 


3730 FDRX=51T092!SET(X,Y):NEXTXiF0RX=101T0123!SET(X,Y)!NEXT 


4230 PRINT:PRINTSTRING$(64,140):PRINT3896,""i 


3740 V=16:F0RX=3T0123:SETlX,v);NEXTX 


4240 PRINTSTRING«(64,140);:RETURN 


3750 X=3:G0SUB3810!X=7l!GOSUB381O 


4250 PRINT3785,"T0 CONTINUE, PRESS ANY KEY"j;G0SUB4210;l!ETURN 


3760 X=:123:G0SUB3810 


4260 PRINT3896,"D0 YOU WISH A NEW DESIGN <Y/N>"i :SOSUB4210iRETUR 


3770 YM:F0RX=0TD23STEP3:SET(X,Y):NEXTX 


^ ^ 
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The most important book 
ever published 
for the Apple. 



The most comprehensive description of 
Apple II firmware and hardware ever 
published — all in one place. 



What's Where in the Apple? 

• Guides you — with a numerical Atlas and 
an alphabetical Gazetteer — to over 
2,000 memory locations of PEEKs, 
POKES, and CALLs. 

• Gives names and locations of various 
Monitor, DOS, Integer BASIC, and 
Applesoft routines — and tells you what 
they're used for. 

Helps BASIC users to speed up their 
programs. 

• Enables assembly language programmers 
to simplify coding and interfacing. 

All Apple users will find this book helpful in 
understanding their machine, and essential 
for mastering it! 




City State Zip Signature 

MICRO INK, Inc., 34 Chelmsford Street, P.O. Box 6502, Chelmsford, MA 01824 

Apple is a registered trademark of Apple Computer, Inc. 
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AIRCRAFT 




COMMANDER 



BY WILLIAM J. EDMUNDS 



Aircraft Commander is a Hi-Res 
flight instrument simulator program 
for an Apple II with Applesoft in ROM 
and 24K RAM. 

This program puts you in the cockpit 
of a single-engine jet fighter. The flight 
instruments are displayed on the Hi- 
Res screen, with additional inform- 
ation concerning communications, 
fuel, and missile status in the text area 
at the bottom of the screen. You, as 
pilot, can practice take-off and 
landing, flight, and air-to-air intercept. 
There is no ground navigation or 
through-the-window view. 

The Flight Instruments 

At the top center is the Attitude 
Indicator, sometimes called the 
"artificial horizon." Because it 
represents the horizon and not the 
wings, it moves opposite to the motion 
of the aircraft. Entering a left bank, 
the horizon appears to turn right; if 
you pull back on the control stick and 
pitch up, the horizon appears to fall. 



At the top left is the Airspeed 
Indicator, which gives indicated 
airspeed from about seventy knots up. 
At sea level, indicated airspeed is the 
same as true airspeed, which is 
displayed in the text area on the left. 
As altitude increases the air becomes 
thinner, and for the same true airspeed 
the indicated or effective airspeed is 
less. Airspeed translates into lift, and if 
airspeed drops below 90 knots you may 
stall. There is an audible warning when 
you are approaching a stall or doing 
something that can cause a stall. 

Below the right-hand corner of the 
Airspeed Indicator is the Landing Gear 
Indicator. An "O" represents the gear 
being "out" or down, and an "I" 
means that it is "in" or up. 

At the top right is the Altimeter. 
Each number represents 100 feet, with 
each full revolution being 1000 feet. 
The number of total revolutions is 
displayed in the text area on the right 
as ALT XIOOO. 

At the lower left is the Compass. 
This pointer operates as a magnetic 
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compass, with the heading displayed 
below it as a number of degrees 
clockwise from north. 

At the lower center, the Radar 
Screen displays range vertically, and 
relative azimuth horizontally. It has a 
range of ten miles, with the center 
vertical row of dots representing one- 
mile increments dead ahead. The other 
vertical rows each represent 15-degree 
increments port and starboard (left and 
right). The only thing which can be 
displayed on the Radar Screen are the 
targets, as small horizontal lines. 

At the lower right is the Engine 
Tachometer. Jet engines idle at SC/o 
RPM and develop maximum thrust at 
100% RPM or Full Military Power. Jet 
fighters also have an afterburner which 
injects fuel into the exhaust port to 
increase exit velocity and thereby gain 
additional thrust. Afterburn is very 
inefficient and is used only for takeoff 
and where maximum acceleration is 
required. Afterburn is indicated on the 
tachometer by an RPM greater than 
100%. 
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The Controls 

The following is a summary of the 
controls; their use is illustrated more 
fully in the "Operation" section. 

Paddle controls bank or roll. 

Paddle 1 controls pitch. 

Right-arrow and left-arrow keys 
increase or decrease RPM by 1%. 
These keys set a flag to determine if 
RPM is increasing or decreasing; once 
the flag is set, the number keys can be 
used to make larger changes. 

Number keys 1-9 are used for 
changing RPM, up to 9% at once. 

Number key toggles RPM to 
100%, afterburn, or idle. 

G raises or lowers landing gear. Gear 
can be used as a speed break. 

A arms a missile. 

F fires an armed missile. 

C opens the communications 
channel. 

Spacebar is used to acknowledge the 
first communications. 

ESC ejects you from the aircraft 
(exits program). 

Operation 

1. Takeoff: 

Starting at idle, press the right-arrow 
key. This sets the flag for increasing 
throttle position and moves the RPM 
to 51%. 

Press to increase RPM to 100%. 

Press again to engage the 
afterburner. At 100 knots start 
pitching up with Paddle 1. At 
approximately 120 knots liftoff will 
occur, and the altimeter will start to 
wind upward. Try to hold your pitch 
about 15 to 20 degrees nose-up. 



Press G to raise the landing gear. 
The indicator will change from Out to 
In. 

At around 200 knots press the left- 
arrow key to disengage the afterburner 
and set throttle flag for decreasing 
RPM. Continue your climb to the 
desired altitude and level off. 

Press 9, reducing RPM to 91%. 

Press 9 again, reducing RPM to 
82%. Cruise. 

2. Air-to-air intercept: 

Once airborne you can simulate an 
air-to-air intercept. It will be your 
mission to intercept and shoot down a 
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target. The target flies straight and 
level, and does not try to evade or 
attack. 

To start, type C. This opens the 
communication channel, and ground 
control will give you an absolute 
bearing to the target. Pressing the 
spacebar again will give target heading, 
range, speed, and altitude in thousands 
of feet. Pressing the spacebar once 
more will give you a continuously 
updated display of the target's range 
and its bearing relative to you. 

When you have the target on your 
screen, arm a missile by pressing A. 
The range of the missiles is about five 
miles, and they can steer up to 15 
degrees from the heading on which 
they are fired. Differences in altitude 
are not considered in computing radar 
or missile range, but when the missile is 
fired the difference between target 
elevation and aircraft pitch must be 
less than 15 degrees. The easiest way to 
achieve this is to fly at the same 
altitude as the target. 

Steer to put the target on the center 
line of your radar screen. If the target 
is approaching head-on, you can fire 
once the target is about five miles out. 
If you are chasing the target you need 
to get within two or three miles de- 
pending on target speed. The missiles 
travel at 1200 knots or about twice the 
speed of the fastest target. When you 
are ready, press F to fire the missile. 

Once the missile is fired, it can take 
up to 30 seconds to reach the target. At 
the point of contact a "HIT" will be 
displayed in the missile status, and the 
target will disappear. If the target was 
not in range then a "MIS" is displayed 
instead. 

You have only two missiles, but 
landing the aircraft will load two new 
missiles and additional fuel if needed. 

3. Landing: 

Landing speed is about 100 knots. 
With gear lowered (using the G key), 
and pitch about to 10 degrees nose- 
up, you will need 78% to 80% thrust. 
Your rate of descent will be displayed 
at touchdown. A good landing would 
be with wings level and at a descent 
rate of less than 400 feet per minute. 

Landing is the most difficult part of 

flying an aircraft. However, a good 

landing is not essential to the 

enjoyment of the program. It just adds 
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to your personal satisfaction to know 
that you didn't bury your aircraft 
under the runway. 

Variables 

A: Missile-armed flag. 

AA: Angle of attack. 

AB: Landing gear flag. 

ALT: Altitude. 

AR: Rotation of altimeter pointer. 

AX,AY: Coordinates of altimeter 

indicator center. 

B: Bank. 

C: Communication counter. 

CB: Cosine of bank. 

CP: Cosine of pitch. 

CR: Compass pointer rotation. 

D: Drag. 

DP: Delta pitch (pitch difference). 

F: Fuel. 

Fl : Fuel consumption. 

G: Gravity. 

GH.GV: Coordinates of attitude 

indicator center. 

GX.GY: Horizon line x and y 

positions. 

H: Heading. 

IAS: Indicated airspeed. 

L: Lift. 

M: Missile number. 

MF: Missile counter. 

MH: Missile heading. 

MR: Missile range. 

MX,MY: Missile x and y starting 

position. 

OS: Radar on-screen flag. 

P: Pitch. 

PI: Radians in a circle. 

R: Temporary variable. 

RB: Target relative bearing. 

RG: Horizon line rotation. 

SB: Sine of bank. 

SP: Sine of pitch. 

SR: Airspeed pointer rotation. 

SX,SY: Target position on radar 

screen. 

T: Thrust. 

TAS: True airspeed. 

TB: Target bearing. 

TC: Thrust control flag. 

TH: Target heading. 

TR,TS,TU: Target range, speed, and 

altitude. 

TT: Engine RPM in percent. 

TX,TY: Target x and y range. 

TW: The number 2. 

U: The number 1. 

W: Vertical velocity. 

X,Y: Temporary variables. 

XI,YI: Target x and y increment. 

Z: The number 0. 



Set LOMEM to protect Hi-Res 
graptiics display. 

10 LOHEH: li3B5; 60T0 3000 



Beginning of main subroutine to 
update aircraft parameters. Read 
paddles and compute pitcii and 
bank angles. 



100 DP = I PDL (U) - 90) / 1000:P 
= P + DP t CBiCP * COS IP) 

110 IF 5SN (CP) < > 1 THEN X = 
TAN (B):¥ = ATN (X):I = PI 
/ TM - TW t Y:B = B + U? = 
S6N (P) t PI / TU - PiH = H 
+ X:CP = COS (P) 
120 SP = SIN (P):X = ( PDL (Z) - 

PB) / PB 
130 B > B M " TN t S6N (I) * D 
P t SP t SB:SB = SIN (B):C1 
= COS (B) 
140 IF ABS (B) > PI / TH THEN B 
= ( ABS (B) - PI) t S6N (B 
) 
150 IF ALT = Z THEN B = Z: IF TA 
S < PB THEN P » Z:SB = Z:SP « 
ZtCP = Z:CB « Z 

Update attitude indicator. 



200 X = 6H OO t SP t SB 
210 Y = ev + 30 t SP I CB 
220 R = PB - B I 64 / PI 
230 ROT= R: SCALE= 10 
240 KDRAH 11 AT X,Y 
250 ROT= RG 
260 XDRAM 11 AT GXiGY 
270 GX = )(:6Y = Y:RG » R 

Compute lieadlng. 

300 H = H + SB I (DP + .05236) 
320 IF H > PI THEN H = H - PI 
325 IF H < Z THEN H = H ♦ PI 
330 MTAB 9: PRINT INT (H » 360 / 
PI);" ■) 

Compute true air speed and 
indicated air speed. 

400 TAS = TAS - D + SP » G t (ALT 

> Z) W t SfiR (IAS / TAS) 

410 IF TAS < U OR (T < U AND TAS 



^m 



^100 



/| I 200 
200 
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< TN) THEN TAS = U 
415 HTAB 1: PRINT INT (TAS 1 0. 

6);- ■) 
420 IAS = TAS t IBSOO / (ALT + 18 

500) 
430 IF ALT > 30100 THEN IAS ' lA 

S t 20800 / (ALT - 9250) 

Compute altitude. 

600 L = (IAS t .02) * TN 

605 AA = 33 / (IAS + 21) ♦ DP / T 

H 
610 D = AA $ L t (AB * .6) 
625 IF AA > .19 AND ALT > Z THEN 

X = - 16336:Y = PEEK (X) + 
PEEK (X) + PEEK (X) + PEEK 

(X) 
630 VV = L « CB t CP + 6 + TAS I 

SIN (P - AA) 
635 IF ALT > Z AND ALT + W < = 

Z THEN GOSUB 2600 
637 IF ALT = Z AND VV > Z THEN HONE 

: VTAB 21 
640 ALT = ALT + VV 
650 IF ALT < Z THEN ALT = Z: IF 

P < Z THEN P = Z 
670 IF IAS < PB AND ALT > Z THEN 

P = P - (P + 1.5) / 5 

Update altimeter. 

800 X = ALT / 1000 
810 R = INT ((X - INT (X)) t 64 
) 



820 IF R < > AR THEN ROT= ARt SC 
ALE= 24: XDRAH 12 AT AX, AY: 
ROT= R: IDRAN 12 AT AX,AY:AR = R 

830 HTAB 36: PRINT INT (X);" "; 

Decrease fuel and checit for 
Iceypress. 

900 F = F - Fl! IF PEEK ( - 1638 

4) > PB THEN GflSUB 2000 
990 RETUm 

Beginning of main program loop. 
Update compass. 

1000 60SUB 100 

1010 R < PB - INT (H t 64 / PI): 
IF CR < > R THEN MI* CRi 
SCALE> 12: XDRAH 13 AT SO, 1 
30: ROT< R: XDRAN 13 AT 50,1 
30: CR = R 
1015 IF C = 3 THEN GOSUB 2500 
1020 GOSUB 100 

1030 R = Z: IF IAS > 122 THEN R « 
INT ( LOG (IAS / 20 - 5) t 
10) 

Update air speed indicator. 

1040 IF R < > SR THEN ROT« SRt 
SCALE' 24: XDRAH 12 AT 30,5 
0: m= R: XDRAN 12 AT 30,50 
:SR = R 

1050 HTAB 27: PRINT INT (f);' " 
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16368,0: IF X » 155 THEN TEXT 


2510 NORHAL : VTAB 21: RETURN 




: HOHE : END 


2520 X = INT ( RND (1) t 3 + 1): 


Compute target position and update 


2100 IF X « 136 THEM TC = - 1: SOTO 


ON X BOSUB 2700,2750,2800: 60SUB 


radar. 


2300 


2900 




2110 IF X = 149 THEM TC ' 1: BOTO 


2530 PRINT CJ'THIS IS GROUND CON 


1100 IF HOT C THEN 1000 


2300 


TROL, I HAVE" 


1110 80SUB 100 


2115 IF X = 176 AND TT » 100 AND 


2535 PRINT 'A TARGET BEARIN6 '; FN 


1120 TK » T« + XI - TAS 1 COS (H 


TC = 1 THEN TT = 110: HC0LOR= 


Q(TB);' DEGREES';: RETURN 


) / 2000:TY » TY + YI - TAS t 


3: HPLOT 200, 105: BOTO 2360 


2540 PRINT 'TARGET HEADINB IS "; 


SIN (H) / 2000: IF TX = Z THEN 


2120 IF X = 176 THEN TT ' 100 t 


FN B(TH);', RANBE '; INT (T 


TX = U / PB 


TC: BOTO 2300 


R + 0.5);" MILES" 


1130 TR ' SDR (TX MN ♦ TY ^ TN 


2130 IF X > 176 AND X < 186 THEN 


2545 PRINT "SPEED ■;TS;' KNOTS A 


) 


TT = TT + (X - 177) « TC: BOTO 


T ALT. ";TU;" THOUSAND FT";: 


1140 TB = ATN (TY / TX)i IF TX < 


2300 


RETURN 


Z THEN TB « TB t PI / TN 


2200 IF X = 160 THEN HOHE : VTAB 


2550 PRINT C$"TAR6ET RANGE IS "; 


1150 IF TB < Z THEM TB « TB + PI 


21: IF C THEN 2500 


INT (TR + 0.5);" HILES," 




2210 IF X = 193 THEN IF NOT A AND 


2555 PRINT "RELATIVE BEARING "; ABS 


1155 60SUB 100 


ALT > AND H < 2 THEN A = 1 


( FN B(RB));' DEGREES '; 


UM Ml' 16: SCALE* 5: IF OS THEN 


:HF = 0:H = H + 1: FLASH : HTAB 


2560 X = ,087: IF RB < - X THEN 


XDRAH 12 AT SX,SY:OS > Z 


13 M t 5: PRINT H;: NORHAL 


PRINT "PORT'; 


1170 X • TB - H: IF ABS IX) « < 




2565 IF RB > X THEN PRINT "STAR 


PI / TH THEN RB * X 


2220 IF X = 199 THEN ROT= 0: SCALE= 


BOARD'; 


1180 IF ABS (X) > PI / TM THEN 


1: XDRAH 2 - AB AT 80,90:AB = 


2570 C = 3: RETURN 


RB = ( ABS (X) - PI) t S6N 


NOT AB: XDRAH 2 - AB AT 80, 


2590 PRINT : PRINT C$'RETURM TO 


(X) 


90 


BASE.';:C = 0: IF OS THEN C = 


1190 IF TR < 10 AND ABS (RB) < 


2230 IF X = 195 THEN GOSUB 2500 


4 


.78 THEN OS ' U:SX = 138 ^ R 




2595 RETURN 


B t 240 / PI:SY = 151 - TR 1 


2240 IF X = 198 THEN IF A AND C 


Landing checic; crash routine. 


7: XDRAH 12 AT SX.SY 


THEN HF = 1:A = 0: HTAB 13 + 




1200 IF H > TN THEN IF NOT OS THEN 


H t 5: PRINT ' ■;:HX = TX:HY 


2600 X = ABS ( INT (VV 1 30)): HOHE 


C = 


= TY:nR = TR:HH = H: IF ABS 






(P - ATN ( (TU / 6 - ALT / 6 


2605 IF X > 600 OR ABS (B) > .2 


Compute missiie position and ctiecic 


000) / TR)) > 0.26 THEN HF = 


8 OR TAS > 300 OR NOT AB THEN 


for hit. 


7 


FLASH : PRINT " CRASH 




2290 RETURN 


•: NORHAL : FOR TT = 1 TO 4 


1300 IF NOT HF THEN 1000 




9:Y = PEEK ( - 16336): NEXT 


1310 HF = HF + U: IF HF > i THEN 


Update tachometer and compute thrust 


:TC = - 1: GOSUB 2350: TA = 


HF = Z: HTAB 12 + H t 5i PRINT 


and fuei consumption. 


1 


'HIS';: SOSUB 2650: GOTO 100 




2607 IF NOT AB THEM PRINT "GEA 





2300 TT = TT + TC 


R NOT DOHN.';: BOTO 2620 


1320 60SUB 100 


2310 IF TT < 50 THEM TT = 50 


2608 IF ABS (B) > .28 THEN PRINT 


1330 R = HR:nR = SQR ((HX + HF t 


2320 IF TT > 100 THEN TT = 100 


"UNUSUAL ATTITUDE';: BOTO 26 


(XI - COS (HH))) * TN + (HY 


2330 IF F < 1 THEN TT = 41: TC = 


20 


+ HF t (YI - SIM (HH))) " 


- 1 


2610 PRINT 'RATE OF DESCENT ";X; 


TN) 


2340 IF TC > = Z THEN HC0L0R= 


" FT./MIN."; 


1340 IF HR > R THEN X = ABS (HH 


3: HPLOT 200,155 


2620 VTAB 21: HTAB 17 


- ATN ((HY + HF 1 YD / (H 


2350 IF TC < Z THEN HCOLOR= 0: HPLOT 


2625 PRINT "1 2 ";:H = 0:A = 


X + HF t XI))):MF = Z: IF X < 


200,95 





.26 OR ABS (PI / 2 - X) < . 


2360 HPLOT TO 200,205 - TT 


2630 IF F < 300 THEN F = F + 300 


26 OR ABS (PI - X) < .26 THEN 


2370 T = (TT - 50) / 5 


2640 RETURN 


HTAB 12 ♦ H 1 5: PRINT "HIT 


2380 Fl = ((TT - 40) / 50) ■^ 2 / 


2650 IF H = 2 THEN H = 3 


';:C = 0: SOSUB 2650; IF OS THEN 


4 


2690 RETURN 


ROT= 16: SCALE* 5: XDRAN 12 


2390 RETURN 


Target generator 


AT SX,SY:OS = 
1400 SOTO 1000 


Communications. 


2700 GOSUB 2850: TB = R 

2710 R = TB ♦ PI / 2: GOSUB 2860; 




2500 C = C + U: HOHE : INVERSE : IF 


TH = R 


interpret Iceyprass. 


H > TN THEN C = 5 


2720 TR = 15 + RND (1) 1 10 




2505 ON C SOSUB 2520,2540,2510,2 


2730 TU = INT (10 + INT 1 RND ( 


2000 X = PEEK ( - 16384): POKE - 


550,2590 


1) t 3) t 2.5) 
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2740 RETURN 

2750 BOSUB 2850: TB = R:TH = R 
2760 TR = 11 + RND (1) » 5 
2770 TU = INT (5 + INT (RND (1 

1 t 9) t 2.5) 
2780 RETURN 

2800 X = S6N ( RND (1) - 0.5) 
2810 R : H + RND (1) t I: BOSUB 

2860 jTB = R 
2820 R = H + PI / 2 + PI / 4 I X: 

BOSUB 2860 :TH = R 
2830 TR = 12 + RND (1) t 10 
2840 TU = INT (5 t INT ( RND (1 

) t 11) t 2.5) 
2845 RETURN 

2850 R = H + RND (1) I 3 - 1.5 
2860 IF R > PI THEN R = R - PI 
2870 IF R < ,175 THEN R = R + PI 

2880 RETURN 

2900 TX = COS (TB) t TR:TY = SIN 

(TB) I TR 
2910 Y = SQR (TU) t 15 
2930 n » COS (TH) I Y / 200!YI » 

SIN (TH) < Y / 200 
2940 TS = INT (Y t 0.6) t 10 
2950 DEF FN 8(X) = INT ((X + 

.087) t 36 / PI) t 10 
2960 RETURN 
Initialization 
3000 HOHE 
3010 BOSUB 9100 
3020 R = 0:Z = 0:U = 1:PI = 6.283 

18531 
3030 PB = 128.5:TN = 2 
3040 BOSUB 4000 
3050 VTAB 22 
3060 PRINT 'TAS HEADIN6 HISS 

ILES"; 
3070 PRINT " FUEL XIOOO"; 
3080 VTAB 21: HTAB 1: PRINT "0") 

3090 HTAB 9: PRINT "60"; 
3100 HTAB IS: PRINT "1 2"; 
3110 HTAB 32: PRINT "ALT 0*; 
3120 POKE 34,22: HOHE : POKE - 

16368,0 
3130 TAS = 1;B = - 16:F = 995.9 
3140 C$ = 'ECHO 1, ■ 
3150 VTAB 21: BOTO 1000 
Draw Hi-Res cocitplt. Attitude indicator. 
4000 HBR : HCOLOR= 3 
4020 BH = 140:BV = 40:R6 = 0:6X = 

6H:6Y = 6V 
4030 FOR R » TO PI - .1 STEP P 

I / 12 
4040 HPLOT 30 I COS (R) + BH,30 
t SIN (R) * 6V TO 35 t COS 

(R) + BH,35 t SIN (R) + BV 



4050 IF R > = PI / 4 AND R < = 

3 t PI / 4 THEN HPLOT BH - 

2,30 t SIN (R) * BV TO BH * 

2,30 t SIN (R) * BV 
4060 NEXT 

4070 SCALE= 10: ROT« R6 
4080 XDRAN 11 AT 6X,6Y 
Altimeter. 
4100 AX = 240: AY » S0:AR «= 0: SCflLE= 

1 
4110 FOR R = TO 9.5 STEP 0.5 
4120 X = SIN (R t PI / 10) :Y « COS 

(R ♦ PI / 10) 
4130 HPLOT AX + 25 I X,AY - 25 t 

Y 
4140 IF R = INT (R) THEN ORAM 

R + 1 AT AX + 2 + 30 t X,AY + 

3 - 30 t Y 
4150 NEXT 
4160 ROT= AR: SCALE= 24: XDRAH 1 

2 AT AX, AY 
Airspeed indicator. 

4200 BOTO 4240 

4210 R = LOB (X / 12 - 5) I PI / 

6.4 
4220 HPLOT 30 + 25 I SIN (R),50 
- 25 t COS (R) TO 30 + 30 t 
SIN (R),50 - 30 » COS (R) 
4230 RETURN 

4240 FOR X = 80 TO 150 STEP 10 
4250 BOSUB 4210: NEXT 
4260 FOR X = 200 TO 600 STEP 100 
4270 BOSUB 4210: NEXT 
4280 SCALE= 24:SR = 0: ROT= 
4290 XDRAN 12 AT 30,50 
4300 SCALE= 1: DRAW 9 AT 46,21: DRAW 

1 AT 52,21 

4310 DRAW 2 AT 63,38: DRAM 1 AT 

67,38: DRAN 1 AT 73,38 
4320 DRAN 2 AT 66,51: DRAH 3 AT 

70,51: DRAN 1 AT 76,51 
4330 DRAN 2 AT 63,65: DRAN 6 AT 

67,65: DRAN 1 AT 73,65 
4340 DRAN 3 AT 49,78: DRAN 1 AT 

55,78: DRAN 1 AT 61,78 
4350 DRAH 4 AT 35,85: DRAN 1 AT 

41,85: DRAH 1 AT 47,85 
4360 DRAH 1 AT 80,90:AB = 1 
4370 HPLOT 5,12 TO 60,12 TO 80,3 

2 TO 80,70 TO 60,90 TO 5,90 TO 
5,12 

Compass. 

4500 HPLOT 50,96 TO 50,101 

4510 FOR R = TO PI STEP PI / 3 

6 
4520 HPLOT 50 + 29 t SIN (R),13 

- 29 t COS (R) 
4530 NEXT 



4540 SCALE= 12:H = PI / 6 ♦ .009 
4550 CR = 64 - INT (H t 64 / PI) 

: ROT= CR 
4560 XDRAH 13 AT 50,130 

Engine tachometer. 

4600 FOR X = 199 TO 201 STEP 2 
4610 FOR Y = 105 TO 155 STEP 5 
4620 HPLOT X,Y: NEXT Y,X 
4630 SCALE= 1: ROT= 0: FOR Y = 

TO 4:R = 157 - Y I 10 
4640 DRAN Y ♦ 6 AT 210, R: DRAH 1 

AT 216,R: NEXT 
4650 DRAN 2 AT 208,107: DRAM 1 AT 

212,107: DRAN 1 AT 218,107 
4660 HPLOT 190,159 TO 190,90 TO 

220,90 TO 220,159 
4670 HPLOT 200,159 TO 200,155 
Radar screen. 

4700 HPLOT 105,80 TO 175,80 TO 1 

75,152 TO 105,152 TO 105,80 
4710 FOR X = 110 TO 171 STEP 10: 

FOR Y = 81 TO 152 STEP 14 
4720 HPLOT X,Y: NEXT Y,X 
4730 SCALE= 1: ROT= 0: DRAH 1 AT 

142,158 
4740 FOR X = 110 TO 170 STEP 60 
4750 DRAH 5 AT X,1S8: DRAH 6 AT 

X + 6,158: NEXT 
4760 HPLOT 101,156 TO 103,156: HPLOT 

161,156 TO 163,156: HPLOT 16 

2,155 TO 162,157 
4770 FOR Y = 88 TO 145 STEP 14: HPLOT 

140, Y: NEXT 
4800 RETURN 
Data for shiape table. 

9000 DATA 13,0,28,0,36,0,41,0,5 

0,0,60,0,67,0,76,0 
9010 DATA 84,0,91,0,100,0,109,0 

,114,0,116,0,27,231 
9020 DATA 36,12,173,54,6,0,219,3 

6,36,4,0,59 
9030 DATA 63,12,12,12,28,191,6,0 

,24,23,63,12 
9040 DATA 40,12,28,63,7,0,27,36, 

229,252,54,45 
9050 DATA 0,27,63,76,225,63,36,4 

5,45,0,27,63 
9060 DATA 104,225,63,100,45,0,27 

,36,12,60,63,7 
9070 DATA 0,24,30,63,96,101,28,1 

91,6,0,27,103 
9080 DATA 33,63,28,12,173,6,0 
9090 DATA 59,79,9,45,0,4,0,79,23 

,36,4,0 
9100 FOR X = 768 TO 888: READ Y: 

POKE X,Y: NEXT : POKE 2Z2,0 

: POKE 233,3 
9110 RETURN O 
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PART II: THE ATARI CASSETTE 



Every now and then, we here at Soft- 
Side receive a call about CLOADing 
troubles on the Atari. The most com- 
mon errors generated are: 138 (Device 
timeout), 140 (Serial bus input framing 
error), and 143 (Serial bus data frame 
checksum error). One general cure-all 
is to type LPRINT with no printer at- 
tached. This clears the cassette buffer 
after a bad load so you can start from 
scratch. Another good idea is to press 
SYSTEM RESET before loading (or 
saving) to restore the system to its in- 
itialized condition. 

The Atari is an extremely well-built 
computer and as such, almost all 
cassette loading problems are tape- 
related. But if typing PRINT 
PEEK(65528) from BASIC displays a 
value of 255, then you have what Atari 
calls the "OPERATING SYSTEM 
255" ROM. It means that you must 
read and write to cassette using a 
special procedure. 

To save or load programs or data, 
place the tape in the recorder and press 
REWIND. When it has finished, take 
the cassette out and advance the tape (a 
ball point pen inserted in the take-up 
hub will help immensely) to the point 
where the splice between the plastic 
tape and the magnetic tape is posi- 
tioned in the center slot of the cassette 
shell. Re-insert the tape in the recorder, 
reset the tape counter, and CSAVE or 
CLOAD. 

But in the case where the computer is 
not at fault, cassette I/O errors are 
caused by one thing: improper posi- 
tioning of the tape at the beginning of 
the "program leader." The program 
leader is a high-pitched tone that tells 
the Atari that a program is about to 
start on the tape. It also serves to 
drown out any noise on the tape that 
might otherwise be mistaken as pro- 
gram data. 

The solution is easy if you have 
another cassette recorder. All you have 
to do is listen to the tape, and when the 
leader starts, stop the tape and put it 
back into the Atari recorder. Press 
PLAY and type CLOAD and your 
troubles are over. 

There is no way to listen to a tape 
with the Atari cassette recorder alone. 
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The speaker on the Atari recorder is 
permanently disconnected, so you can- 
not hear what is on the tape — at least 
not directly. But try this: Before 
loading any program from cassette, 
type POKE 54018,54. Now turn up the 
speaker on your TV set, and type 
CLOAD — but DON'T enter the line 
with a RETURN. 

Press the PLAY button on the 
cassette and listen. You will be able to 
hear what is on the tape through the 
TV, but you will still have complete 
control over the computer; all com- 
mands can be executed normally. As 
soon as you hear a clear portion of the 
leader, type RETURN to start 
CLOADing. In most cases there will be 
a blank gap on the tape between each 
program, which you will want to skip 
over. (All SoftSide cassette tapes are 
indented about ten turn counts from 
the begining of the tape and there is a 
three-count gap between programs.) 
You should then hear the start of the 
SoftSide 



program leader, which may be very 
faint and is usually accompanied by a 
few pops and clicks caused by 
"glitches" at the recording head when 
the cassette is first started. When the 
leader settles down to a smooth tone, 
then the time is right to start 
CLOADing. 

I'm not saying that this method is 
REQUIRED to properly load a pro- 
gram from cassette; I am simply saying 
that this method is almost fool-proof, 
even for tapes that are otherwise dif- 
ficult to load. If fact, if you have the 
"OPERATING SYSTEM 255" ROM, 
this may be the only way to load in 
commercial tapes. 

Another advantage of this POKE is 
that you can listen to any tape through 
the TV speaker. The computer will ig- 
nore the cassette completely unless a 
normal load or save command is exe- 
cuted. So if you would like a little 
background music while using your 
computer, just POKE YOUR ATARI!© 



by Mark Pelczarski and Paul 
Marentette 



The "Developing Database" series is 
copyrighted 1981 by Mark Pelczarski. 
It may be reprinted with written per- 
mission from the author. 

Fineilly! At last! Here's a complete 
listing of the Atari version of the 
developing database program, courtesy 
of Paul Marentette of New York. 

One constant in working with pro- 
grams across a few computers is that 
there's always a better way to do it on 
another machine. (Never mind the 
parts that require 15 doses of frus- 
tration to translate features that are 
quite different on the receiving 
machine.) A literal translation of a 
program will usually work, given 
enough patience and a little elbow 
grease, but a translation that takes the 
spirit of a program and applies it to the 
features of a different computer is 
usually far superior. That's where Paul 
Marentette comes in. The Atari 
database as published in the series 
worked all right after some tinkering 
here and there, but we had early plans 
for a version written exclusively for the 
Atari. The invasion of the bugs, along 
with assorted commitments on my 
part, slowed things down a bit when 
along came Paul to the rescue. (Actual- 
ly, my main obstacle was a RETURN 
statement in the rewrite that insisted on 
changing the value of a variable. 
Unless I misunderstand Atari's concep- 
tion of the BASIC language, that's not 
supposed to happen. I've had various 
and sundry hypothetical explanations, 
along with a few good ones I made up, 
but nothing that fully explained the 
alleged bug in the BASIC.) 

Anyway, Paul's version of the 
database does justice to the Atari's 
capabilities, and makes the program 
look pretty good (which is good, 
because maybe some people will ac- 
cidentally think it's my fault). So, 
following is Paul's explanation of the 
changes to the program. The instruc- 
tions for using the database accom- 
pany the hstings of the Apple version 
in the October SoftSide. 

Line 1700 1$(LEN(I$) -(- Nl) = " " 
:I$(I*RL + Nl) = I$(I*RL -I- Nl + 
NH*IL-I-IL):IFI$ = " " 
THEN I$ = "":GOTO 1710 
1705 1$ = I$(N1 ,LEN(I$)-N1) 



Documentation 

More than 2000 bytes were trimmed 
from this expanded version of the pro- 
gram by using multiple statements per 
line number and by converting 
commonly-used numeric constants 
(i.e., 1, 2, 3, etc.) to numeric variables 
(Nl, N2, N3 . . .). This latter step 
achieves a tremendous saving in 
memory. 

Unfortunately, the use of multiple 
statement lines makes the program 
somewhat less readable, but the trade- 
off for memory savings more than 
justifies the tighter coding. Documen- 
tation can accompany the program in 
text form. 

Improved Menu System 

The main menu now has a title ban- 
ner which gives a constantly updated 
report on the current file name, the 
number of records in memory, and the 
number of records that can still be fit 
into memory. This "records-free" 
parameter replaces the characters-free 
category in the original version. It is 
more valuable to know how many 
complete records you can add to your 
database. The value is calculated by 
dividing the total number of bytes 
allotted to the 1$ string by the record 
length of one record (RL). 

When the program is first run, the 
file name is set to NULL and the 
records-free parameter is not displayed 
until the user has designed the headings 
and stated the maximum item length. 
Thereafter, the status of the current 
file is updated after every sequence of 
commands. 

New I/O Routines 

The input and output routines have 
been radically altered. Here are some 
of the major changes: 

1. When first run, the program 
prompts for either loading a saved file 
or intializing a new one. If the LQAD 
option is chosen and if there is a disk 
device connected (this is automatically 
determined when the program is in- 
itialized), the program automatically 
gives a listing at the bottom of the 
screen of the data files (.DAT only) in 
the disk directory. If none are found, 
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the "load file" option is cancelled. If 
.DAT files do exist, the user is 
prompted to enter the file name he 
wants to retrieve. The file is then 
loaded and the menu is displayed. 

2. If the user chooses the IN- 
ITIALIZE A NEW FILE option, he is 
immediately prompted for a file name. 
The name is checked for validity (limit 
of eight characters and no file exten- 
sion) and .DAT is appended to the 
name. The name is then displayed at all 
times next to the "FILE:" heading of 
the banner. 

3. When the SAVE FILE option is 
chosen from the menu, the user is given 
the opportunity to rename the file 
before it is saved. There is a single save 
routine for disk and cassette. The ap- 
propriate device is automatically 
selected based on the HASDOS 
variable. If the cassette is in use, the 
file name is written to the tape so that 
each tape data file has an indentifying 
header. 

4. Disk users have the F option in the 
menu (it is not listed for cassette users). 
This option can be chosen at any time 
to display all of the data files on the 
disk. The file names are printed below 
the menu area in four-across fashion. 

5. When a cassette user is loading a 
tape file, he is asked for the file name. 
There is a single read routine for disk 
and cassette, but with cassette use the 
file name is checked against the file 
name header on the tape. If they do not 
match, the file is not read, and a 
message states that the file was not 
found. Of course, with disk use, the 
file name is always checked against the 
directory and an error message is 
displayed if the file is not found. 

6. The save/load routines for format 
files have been modified so that a 
.FMT extension is appended to each 
file name. The string .FMT is used to 
hold the current format name. 

Uncluttered Video Screens 

Whenever possible, the video display 
has been "cleaned up." After almost 
every command, the screen is cleared 
and the banner is redisplayed. Sub- 
options have been listed under one 
another in menu fashion. Instead of: 
(S) SCREEN or (P) PRINTER? 
the revised program offers: 
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(S) SCREEN 

(P) PRINTER ? 

This format is maintained throughout 

the program. 

If an input error is made, the screen 
will usually clear and the choices will 
be reprinted on a clean screen, instead 
of having past work scroll off the top 
of the screen. 

Print Routine Changes 

1. If the video is chosen as the print 
device, the screen editor is opened for 
output (line 2210) with the symbol 
"E:". The "S:" symbol in the original 
program caused all control characters 
such as tabs and cursor controls to be 
printed rather than acted upon. Send- 
ing these characters to the screen editor 
allows the effective use of these con- 
trols when they are buried in format- 
ting strings. The "E:" allows more 
creative screen formatting. 

2. If the printer is chosen as the print 
device, and if there is no printer on- 
line, an error message is given (line 
2230) and the video editor is opened as 
the default. 



3. When printing to the screen, only 
one record is printed on the screen at a 
time. Hitting any key (RETURN is 
suggested) causes the message 
SEARCHING... to be printed at the 
bottom of the screen since the search 
may take some time before finding the 
next record. When the next record is 
found, the screen is cleared, and the 
new record is printed on a clean screen. 
If no records are found in a search 
(i.e., search criteria not met) a message 
to that effect is printed (line 2500). 
Like in the original version, the user 
has the option between records of hit- 
ting ESC to abort the routine and 
return to the menu. When the end of 
file is reached, a buzzer sounds, and an 
appropriate message is printed. 

Modified Search Routine 

Because of the lack of string arrays 
in Atari BASIC, there was an impor- 
tant error in the Atari version of the 
search routine. In the Apple and TRS- 
80® versions, the asterisk could be used 
as a "wild card" in a search ("MA*" 



would search for any item beginning 
with "MA"). This worked in the Atari 
version too, but a search for "MA" 
without the asterisk would also turn up 
every item beginning with "MA". In 
fact, if we search for items equal to 
"MA" without the wild card, we 
should only find items equal to "MA", 
not equal to or greater than. (There is a 
separate > = search option.) 

The revised version (lines 2320 to 
2340) makes the "equal to" type 
search work as it was intended. Only 
items strictly equal to the value 
specified will be found by the search 
unless the wild card * is used. 

Conclusions 

Although the original algorithms 
have been kept, this revision of the 
database represents a whole new look. 
The program functions more 
smoothly, input/output routines are 
much better debugged and are simpler 
to use, and the search routine now 
works the way the way it was designed 
to operate. 



10 REM SOFTSIDE DATABASE PR06Rflfl 


210 NEH I: GOTO 230 


440 IF CHR»(A)="S" THEN GOSUB 950:G0T0 


20 reh author - nark PELCZARSKI 


230 FN*="NULL":GOSUB 140:? MI) INITIA 


330 


30 REM ATARI TRANS. - R. BOUCHARD 


LIZE A NEH FILE" 


450 IF CHR$(A)="P" THEN GOSUB 1130:G0T 


40 REM 


240 ? "(L) LOAD A SAVED FILE?":? :? "S 


330 


50 REN REVISED BY PAUL HARENTETTE 


ELECT? "!:GET IN2,A:IF CHR$(A)<>"L'' AN 


460 IF CHR«(A)="A" THEN 60SUB 1450:601 


60 REM 708 WASHINGTON ST. IGB 


D CHR$(A)<>"r THEN 230 


330 


70 REM NEH YORK, N.Y. 10014 


250 GOSUB 140: GOTO 290 


470 IF CHR$(A)="C" THEN SB=N3: GOSUB 19 


80 REN PHONE (212) 929-iB04 


260 FN$="":? " ENTER FILE NAME ";:1NPU 


80: GOTO 330 


90 REM CURRENT REVISION -- 7/7/81 


T FN»:IF FN$="» THEN POSITION N6,22:G0 


480 IF CHR*(A)='D" THEN SB=N4!FS=N1:G0 


100 REM SAFE REENTRY = BOTO 330 


TO 260:REM shift-BACK S before ENTER 


SUB 1980:60T0 330 


110 DIM A«(260):)1=INT(FRE(0)»0.B):N8=8 


270 FI$(N3)=FN$:FI$(LEN(FI»)+N1)='.DAT 


490 IF CHR*(A)="T" THEN GOSUB 1740:G0T 


:DIM H$(Xt0.1),I«(Xt0.9),FI«(14),FN»(N 


":FOR I=N1 TO LEN(FN«):IF FN$(I,I)="." 


330 


8),FMT$(N8) 


THEN POSITION N6, 22: GOTO 260 


500 IF CHR*(A)="F" AND HASDOS THEN GOS 


120 N0=0!N1=1:N2=N1+N1:N3=N1+N2:N4=N2+ 


280 NEKT I: RETURN 


UB 590: GOTO 330 


N2:N6=N3+N3:N7=N1+N6:60T0 180 


290 IF CHR«(A)="L" THEN GOSUB 700:G0T0 


510 IF CHR$(A)="B" OR CHR$(A)="N" THEN 


130 FOR H=N1 TO 400:NEXT «:RETURN 


310 


530 


140 ? CHR*(125);" 


300 IF CHR»(A)="I" THEN GOSUB 860:G0T0 


520 GOTO 330 


FILE: ";FN*:REM ctrl-Q, 17 ctrl-R'5, 


330 


530 AA=A:IF SS THEN 570 


ctrl-E, 3 spaces 


310 IF SS=N1 THEN 330 


540 ? " CURRENT FILE IS NOT SAVED.":? 


150 ? "1 SOFTSIDE DATABASE! RECS: ";N 


320 GOTO 230 


•CANCEL COMMAND? (Y/N) •;:GET »2,A:? C 


I+Nl:? " "jrREM Ctrl 


330 TRAP 330:CL0SE IN3:G0SUB 140:? "(S 


HR<(A):REM ctrl-- before CURRENT 


-Z, 17 ctrl-R'5, ctrl-C 


) SAVE CURRENT FILE" 


550 IF CHR$(A)="Y" THEN 330 


151 REM 1 in above line is 5hin-= 


340 ? "(P) PRINT DATA" 


560 IF CHR«(A)<>"N" THEN 540 


160 IF RDNO THEN ? " FREE: "ilNTIXt 


350 ? "(A) ADD DATA" 


570 IF CHR»(AA)="N" THEN CLR :RUN 


0.9/RL)-NI+Nl; 


360 ? "(C) CHANGE A RECORD" 


580 TRAP 40000:6RAPHICS NO:END 


170 ? :? :? : RETURN 


370 ? "(D) DELETE A RECORD' 


590 POSITION N2,16:? ' DATA FILES; ■:TR 


180 DIM Cl(N7),C2(N7),F$i40O),B$U00), 


380 ? "(T) SORT" 


AP 600:0PEN iNl,N6,N0,"D:t.DAT":G0T0 6 


C*(100):HASD0S=N0:NI=-N1 


390 IF HASDOS THEN ? "(F) LIST FILE NA 


10:JJ=N0:REN shift-BACK S before DATA 


m OPEH INr.WjNOi'Kr^GRM'HICS N0:SE 


MES" 


600 POSITION N4,20:? "CAN'T READ DISK 


TCOLOR N2,N7,NO:SETCOL0R N4,N7,N0 


400 ? "(N) START NEM FILE" 


DIRECTORY.": CLOSE iNl:GOSUB 130:RETURN 


200 FI«="C:":FOR I=NO TO N6+N6:IF PEEK 


410 ? "(Q) QUIT":? 




(794+N3II)=ASC("D") THEN HASD0S=N1:FI* . 


420 ? :? :? "SELECT "; 


610 INPUT INI, A* 


="D:" 


430 GET IN2,A:? CHR$(A) 


620 FOR 1=17 TO 20:FDR J=N2 TO 29 STEP 



72 
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9: IF At(Nl,Nl)<>" " THEN 670 
630 POSITION J,l:? A«(N3,10):JJ=JJ+N1: 
INPUT INl,fl«!NEXT J:NEXT I 
640 IF A$(N1,N1)<>" " THEN 670 
650 POSITION 8,23:? 'PRESS RETURN FOR 
MORE "j:6ET IN2,fl 

660 FOR 1=23 TO 17 STEP -NhPOSITION N 
0,1:? " ";:NEXT I:60T0 620:RE(1 shift-B 
flCK S 

670 TRAP 330! IF JJ=NO THEN ? :? "NO DA 
TA FILES IN DIRECTORY"; :GOSUB 130 
680 CLOSE iNl:POSITION N6,23:IF CHR$(A 
)<>"L' THEN ? "PRESS RETURN TO CONTINU 
E ";:GET iN2,A 
690 RETURN 

700 IF HASDQS THEN 50SUB 590: IF JJ=NO 
THEN RETURN 

730 POSITION N6,22:G0SUB 260: IF HASDOS 
=N0 THEN ? "HIT ENTER TO PLAY ";: INPUT 

A« 

740 60SUB 140:? :? "LOADING ";FN$;:TRA 
P 850!0PEN IN1,N4,N0,FI$:IF HASDOS THE 
N 750 
745 INPUT #N1,A»:IF A$<>FI$ THEN 850 

750 INPUT IN1,NH,NI,HL,IL:IF IL>NO THE 

N DIM Tt(NH«IL+IL+Nl):RL=(NH+Nl)tIL 

760 SEG=N1 

770 INPUT #Ni,A»!lF LEN(A«)=NO THEN 79 



780 H*(SEG)=A«!SEG=SEG+250:60T0 770 

790 IF NI=-N1 THEN 830 

800 SEG=N1 

810 INPUT iNl,At 

820 I»(SEG)=A*;IF LEN<A«)=250 THEN SEG 

=SES+250:G0T0 810 

830 CLOSE iNl 

840 SS=N1: RETURN 

850 ? " "iFN$j" NOT F0UND":A=70:G0SUB 
680: SS=N0: RETURN :REH shift-BACK S in 
l5t quotes; ctrI-2 and space in 2nd 

860 GOSUB 260:? :? "HON MANY HEADINGS 

";: INPUT NH:IF NH<N1 THEN 860 

870 ? :? "ENTER MAXIMUM HEADING LENGTH 
";: INPUT HL!lF HL<N1 THEN 870 

880 NH=NH-N1:NI=-N1:H*="":I$="":G0SUB 

140 

890 FOR I=NO TO NH 

900 ? "HEADING #°;I+N1;" :";:INPUT At 

910 IF LEN(A$)>HL THEN ? "MAXIMUM LENG 

TH IS ";HL;". REENTER":GOTO 900 

920 IF LEN(A*)<HL THEN A«(LENIA$)+N1)= 
• ":GOTO 920 

930 H*(LEN(H»)+N1)=A$:NEXT I 

940 SS=NO: RETURN 

950 GOSUB 140:? "IS FILE NAME - "fFNt; 

" - OK? ";:GET iN2,A:IF CHRt(A)="N" TH 

EN GOSUB 260 

960 IF HASDOS THEN 980 



970 ? :■' "HIT ENTER TO RECORD ";: INPUT 

At 
980 TRAP 1110:? :? "SAVING ";FN$;:OPEN 

INI, N8, NO, Fit: IF HASD0S=N0 THEN PRINT 

«Nl;FIt 

990 PRINT #N1;NH!? INljNI:? #N1;HL:? t 
N1;IL:SEG=N1 

1000 IF LEN(Ht)<=SEG+249 THEN PRINT IN 
1 ;Ht (SEG, LEN(Ht)): GOTO 1030 
1010 PRINT »Nl;Ht(SEG,SEG+249):SEG=SEG 
+250: IF SEG>LEN(Ht) THEN 1030 
1020 GOTO 1000 
1030 PRINT INI;"" 
1040 IF NI=-N1 THEN 1100 
1050 SEG=N1 

1060 IF LEN(It)<=SES+249 THEN PRINT II 
;It(SEe,LEN(It)):80T0 1090 
1070 PRINT INl;It(SEG,SEG+249):SEG=SEG 
+250: IF SEG>LEN(It) THEN 1090 
1080 GOTO 1060 
1090 PRINT INI;"" 
1100 CLOSE INI :SS=N1: RETURN 
1110 ? "OUTPUT ERROR" :GOSUB 130:CL0SE 
♦Nl: RETURN 

1120 REM PRINT SUBROUTINE VERS. 3 
1130 FS=N1:IF NI=-N1 THEN GOSUB 2520:R 
ETURN 

1140 GOSUB 140:? "FORMATTED OUTPUT? (Y 
/N) ";:6ET IN2,A:? :IF CHRt!A)="Y" THE 
N GOSUB 2540: FS=N2: SOTO 1170 
1150 IF CHRt(A)<>"N" THEN 1120 
1160 FS=N1:G0T0 1180 
1170 IF FS=N2 AND FMTt="" THEN 1120 
1180 GOSUB 140:SB=N1:? "(S) SCREEN or" 
:? "(P) PRINTER ?";:GET 12, A:? :IF CHR 
t(A)="P" THEN SB=N2!G0T0 1200 
1190 IF CHRt(Al<>"S" THEN 1180 
1200 GOSUB 1990:CL0SE IN3:P0KE 752, NO: 
RETURN 

1210 REM PRINT ONE RECORD VERS. 4 
1220 ON FS GOSUB 1270,1310:POSITION N2 
,22:? "PRESS RETURN (ESC FOR MENU)"; 
1230 GET IN2,A:IF A=27 THEN RS=N1 
1240 RETURN 

1250 REM PRINT ONE RECORD TO PRINTER, 
VERS. 4 

1260 ON FS GOSUB 1270,1310:RETURN 
1270 IF SB=N1 OR SB=N4 THEN ? CHRt(125 
) 

1280 PRINT IN3:PRINT IN3; "RECORD ";I+N 
hPRINT IN3:F0R J=N0 TO NH 
1290 PRINT IN3;Ht(J«HL+Nl,JtHL+HL),It( 
ItRL+Nl+JtIL, IIRL+JIIL+IL) !NEXT J:RETU 
RN 

1300 REM PRINT ONE FORMAT 
1310 J=Nl:T=N0:Bt="":IF Ft(LEN(Ft))<>° 
6" THEN Ft(LEN(Ft))="6" 
1320 Jl=VAL(Ft(J,J)):J=J+Nl:IF JK5 TH 
EN N=VAL(Ft(JJ+Nl)):J=J+N2 



1330 ON Jl SOTO 1340,1350,1360,1370,13 

90,1440 

1340 At=Ht(NtHL+Nl,NtHL+HL):GOTO 1420 

1350 At=It(I»RL+Nl+N»IL,I»RL+NtlL+IL): 

GOTO 1420 

1360 FOR QQ=N1 TO N:Bt(LEN(Bt)+Nl)=" " 

:NEXT QQ:GOTO 1430 

1370 PRINT ♦N3;Bt:IF N>N1 THEN FOR J2= 

N2 TO N: PRINT ♦N3!NEXT J2 

1380 Bt="'':GOTO 1430 

1390 J2=J 

1400 IF Ft(tl2,J2)<>"!" THEN J2=J2+N1:G 

OTO 1400 

1410 At=Ft(J,J+(J2-J)-Nl):J=J2+Nl 

1420 Bt(LEN(Bt)+Nl)=At 

1430 GOTO 1320 

1440 PRINT IN3;Bt! RETURN 

1450 GOSUB 140!SS=N0:IF IDNO THEN 148 



1460 ? "ENTER MAXIMUM ITEM LENGTH ";:I 

NPUT IL:IF IL<N1 THEN IL=NO:60TO 1460 

1470 DIM Tt(NHIIL+IL):RL=(NH+Nl)»IL:GO 

SUB 140 

1480 NI=NI+N1:? :? "RECORD NUMBER ";NI 

+N1;" (ENTER ! TO END)":? :? :FOR J=N 

TO NH 

1490 ? Ht(J»HL+l,JtHL+HL);" : ";: INPUT 

At:IF At="!» THEN NI=NI-N1:J=NH:NEXT 
J: RETURN 

1500 IF LEN(At)>lL THEN ? "TOO LONG. H 
AXIHUM SIZE .IS "ilL;". REENTER":60T0 1 
490 

1510 IF LEN(At)<IL THEN At(LEN(At)+Nl) 
=" ■:GOTO 1510 

1520 It(LEN(It)+Nl)=At:NEXT J:GOTO 145 


1530 REM CHANGE SUBROUTINE VERS, 2 
1540 GOSUB 140:? "(C) CHANGE ITEM, (K) 

KEEP ITEM, OR":? "(R) KEEP REMAINDER 
OF RECORD" 

1550 ? !? "RECORD ";I+Nl!CS=Nl:RS=N0!F 
OR J=0 TO NH:? :? Ht(JtHL+Nl,JtHL+HL); 
' : ";It(ItRL+l+JIIL,I»RL+JtIL+IL);" 

f 

1560 IF RS=N1 THEN PRINT :60T0 1640 

1570 GET IN2,A:IF CHRt(A)<>"C" AND CHR 

$(A)<>"K" AND CHRt(A)<>"R° THEN 1570 

1580 ? CHRt(A):IF CHRt(A)="K" THEN 164 



1590 IF CHRt(A)='R" THEN RS=N1:G0T0 16 

40 

1600 ? Ht(J»HL+Nl,J«HL+HL);" : ";:INPU 

T At 

1610 IF LEN(At)>IL THEN PRINT "TOO LON 

G. MAXIMUM SIZE IS ";IL;". REENTER":GO 

TO 1600 

1620 IF LEN(At)<IL THEN At(LEN(At)+Nl) 

=" •:GOTO 1620 

1630 It(I»RL+Nl+JtIL,I»RL+J>IL+IL)=At: 
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CS=NO 


2040 C1(J)=I-N1 


2380 IF BS=N2 THEN AS=N1:J=N7 


JA40 NEXT J;fiS=NO:IF CS=NO THEH SS=NO 


2050 POSITION N2,21:? "(1) <= (2) 


2390 GOTO 2410 


1650 RETURN 


(3) >= ■;:INPUT A!C2(J)=A:I 


2400 IF BS=N1 THEN AS=N2!J=N7 


1660 REM DELETE SUBROUTINE VERS. 2 


F C2(J)<N1 OR C2<J)>N3 THEN 2050 


2410 NEXT J 


1670 ? :POKE 752, NO:? "DELETE THIS REC 


2060 POSITION N2,22!? "VALUE:";: IF Cl( 


2420 IF AS=NO AND BS=N1 THEN 2440 


ORD? "; 


J)=-N1 THEN 2110 


2430 IF AS=NO OR AS=N2 THEN 2490 


1680 SET »N2,A:IF CHR$(A)<>"Y" AND CHR 


2070 PRINT " ";: INPUT A»:IF LEN(A*)>IL 


2440 NF=0:IF SB=1 THEN GOSUB 1220 


MAIO'N" THEN 1680 


THEN ? "TOO LONG. MAHMUM LENGTH IS " 


2450 IF SB=N2 OR SB=N4 THEN GOSUB 1260 


1690 ? CHR*(A):POKE 752.N1:IF CHR*(A)= 


;IL:GOTO 2060 


2460 IF SB=3 THEN GOSUB 1540 


"N" THEN 1720 


2080 IF LEN(A$)<IL THEN A*(LEN<A*)+N1) 


2470 IF SB=N4 THEN GOSUB 1670 


1700 I$(LEN(I$)<-N1)=" ":I«(I»RL+N1)=I« 


=" ":GOTO 2080 


2480 IF RS=H1 THEN 19=12 


(ItRL+Nl+NHIlL+lL)!l«=I$(Nl,LEN(I$)-Nl 


2090 C$(J»IL+N1,J*IL+IL)=AI:J=J+N1:IF 


2490 POSITION N2,22!? "SEARCHING... 


) 


J>N7 THEN 2180 


■pNEXT I9:P0KE 7 


1710 NI=NI-N1:SS=N0:I=I-N1 


2100 GOTO 2000 


52, NO: IF RS THEN RETURN 


1720 RETURN 


2110 PRINT " ";:INPUT I:IF KNl OR I>N 


2500 IF NF THEN POSITION N2,20:? "NO M 


1730 REM SORT ROUTINE 


I+Nl THEN 2110 


ATCHES FOUND"! 


1740 IF NI=-N1 THEN 60SUB 2520: RETURN 


2120 I=I-N1 


2510 POSITION N2,22;? CHR«(253)i"END 


1750 60SUB HO; FOR J=NO TO NH:? "l"jJ+ 


2130 IF C2(J)=N1 THEN 12=1 


F FILE... RETURN FOR MENU";:BET #N2,A:R 


Nl;") ";H$(J»HL+Nl,J»HL+HL):NEn J 


2140 IF C2(J)=N2 THEN 11=1:12=1 


ETURN 


1760 ? !? "SORT NHICH HEADING ";: INPUT 


2150 IF C2(J)=N3 THEN 11=1 


2520 ? CHR$(253);"N0 DATA IN MEMORY.": 


J1:J1=J1-N1 


2160 GOTO 2000 


GOSUB 130: RETURN 


1770 IF JKNO OR J1>NH THEN RETURN 


2170 IF J<N2 THEN 2200 


2530 REM PRINT FORMATTING, V.l 


1780 GOSUB HO:? "(A) ASCENDING, OR (D 


2180 POSITION N2,21:? " 1) ITEM MUST M 


2540 GOSUB 140: IF FMT$»"" THEN 2570 


) DESCENDING": GET iN2,A:IF CHR$(A)="A' 


EET ALL CONDITIONS":? ' 2) ITEM MAY ME 


2550 ? "SAME FORMAT? "i:GET iN2,A:PRIN 


THEN A=N1:G0T0 1810 


ET ANY CONDITION ";: INPUT BS 


T :IF CHR$(A)="Y" THEN RETURN 


1790 IF CHR$(A)="D" THEN A=N2:60T0 181 


2181 REM 5hift-BACK S before 1) and 2) 


2560 IF CHR«(A)<>"N" THEN 2540 





in above line 


2570 ? "(L) LOAD FORMAT or":? "(C) CRE 


1800 GOTO 1780 


2190 IF BS<N1 OR BS>N2 THEN 2180 


ATE FORMAT ";!6ET IN2,A!? :IF CHR»(A)= 


1810 ? :? "SORTING... ";:FOR I=NO TO NI 


2200 TRAP 2230:RS=N0:1F SB=N2 THEN OPE 


"C" THEN 2670 


-1 


N #N3,N8,N0,"P:":TRAP 330:60T0 2240 


2580 IF CHR«(A)<>"L" THEN 2570 


1B20 T=I:FOR I1=T+N1 TO NI 


2210 OPEN tN3,N8,NO,"E:":P0KE 752,N1:T 


2590 TRAP 2650 


1830 ON A GOTO 1840,1860 


RAP 330:SETC0L0R N2.N7,N0:SETC0L0R N4, 


2600 GOSUB 2890: IF FMT»="" THEN RETURN 


1840 IF I»(I1IRL+N1+J1»IL,I1»RL+J1IIL+ 


N7,N0 




IL)<I$(TIRL+N1+J1>IL,T»RL+J1IIL+IL) TH 


2220 POSITION N2,22!? "SEARCHING...";: 


2610 OPEN tNl,N4,N0,A$:IF HASDOS THEN 


EN T=I1 


GOTO 2240 


2630 


1850 GOTO 1870 


2230 CLOSE IN3:? "PRINTER NOT ON LINE" 


2620 INPUT iNl,A*:IF A*<>FMT» THEN 265 


1860 IF I«(Il»RL+Nl+JltIL,IllRL+JltIL+ 







lL)>I«(T<RL+Nl+Jl»IL,TtRL+Jl»IL+IL) TH 


:GOTO 2510 


2630 F»="' 


EN T=I1 


2240 I=I1-N1:F0R 19=11 TO I2:I=I+N1 


2640 INPUT IN1,NF:F0R J=N0 TO NF: INPUT 


1870 NEH 11 


2250 AS=NO:FOR J=N0 TO N7 




1880 IF T=I THEN 1900 


2260 IF C1(J)=-N1 THEN J=N7:G0T0 2410 


tNl,At:F$(LEN(F$)+Nl)=At:NEXT J:GOTO 


1890 T»=I* (TIRL+Nl , TIRL+RL) : 1$ (TtRL+1 , 


2270 B$=C$(JtIL+Nl,J»IL+lL) 


2660 


TtRL+RL)=I$(I«RL+l,ItRL+RL):I*(I»RL+l, 


2280 IF LEN(B$)>NO THEN IF B$(LENiB*). 


2650 ? "FORMAT "jFHT*;" NOT FOUND":G0S 


IIRL+RL)=T$ 


LEN(B$))=" " THEN B$=B*(N1,LEN(B«)-Nr) 


UB 130:FMT»="" 


1900 NEXT I 


:60T0 2280 


2660 CLOSE INI: RETURN 


1960 ? "COMPLETED."! GOSUB 130:SS=M0:RE 


2290 ON C2(J) GOTO 2300.2320,2360 


2670 NF=NO:J=NO:F$="": GOSUB 140:? "STA 


TURN 


2300 IF I*(IIRL+Nl+Cl(J)»IL,ItRL+Cl(J) 


RT IN THE UPPER LEFT CORNER AND":? "NO 


1970 REM SEARCH SUBROUTINE, VERS, 2 


»IL+LEN(B»))<=B« THEN 2380 


RK ACROSS EACH LINE.":? 


1980 IF N1=-N1 THEN 60SUB 2520!RETURN 


2310 SOTO 2400 


2680 ? "SHEADING":? "2:ITEM"!? "3:TAB 


1990 Il=N0:I2=Nl!j=N0:Cl(N0)=-Nl!BS=Nl 


2320 A$=" ":A«(IL-N1)=" ":A*(2)=A$!A$( 


":? "4:NEXT LINE":? "5:STRING":? "6:EN 


:NF=N1 


N1,LEN(B$))=B$:IF M(ItRLtNltCl(J)tIL, 


D":? 


2000 GOSUB 140:? "SEARCH CRITERIA:":? 


»RL+Cl(J)»IL+IL)=ft$ THEN 2380 


2690 INPUT J1:IF JKNl OR J1>N6 THEN 2 


:? "0) RECORD NUMBER" 


2330 IF B*(LEN(B*),LEN(B»))<>"$" THEN 


690 


2010 FOR I=N0 TO NH:PRINT I+Nl;") "jHI 


2400 


2700 F»(LEN(F»)+N1)=STR»(J1) !J=J+N1 


(ltHL+Nl,ItHL+HL):NEXT I:? :? NH+N2;") 


2340 T=LEN(B$)-N1:IF I»(I»RL+N1+CHJ)« 


2710 ON Jl GOTO 2720,2720,2750,2750,27 


BEGIN" 


IL,ItRL+Cl(J)tIL+T)=B$(Nl,T) THEN 2380 


90,2810 


2020 POSITION N2,20:? "WHICH FIELD: "j 


2350 GOTO 2400 


2720 GOSUB 140:F0R T=NO TO NH:PRINT T+ 


; INPUT 1:1F KNO OR I>NH+N2 THEN 2020 


2360 IF I$(URL+N1+C1(J)»IL,I»RL+C1(J) 


Nl;") ";H$(TtHL+Nl,TtHL+HL)!NEXT T 


2030 IF I=NH+N2 THEN CI(J)=-N1:60T0 21 


tIL+LEN(B$))>=B« THEN 2380 


2730 ? :? "NHICH? ";: INPUT T:T=T-Nl;If- 


70 


2370 GOTO 2400 


KNO OR T>NH THEN 2730 
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2740 GOTO 2760 

2750 ? "HOW NANY? ";: INPUT T:IF T<N1 
R T)99 THEN ? "OUT OF RANBE.°:GOTO 275 


2760 A$=STR$iT):IF T<10 THEN A$="0":A» 
(LEN(A$)+N1)=STR$(T) 
2770 F*(LEN(F$)+N1)=A*:J=J+N2 
2780 BOTO 2B00 

2790 ? "STRING: 'jiINPUT A»:A»(LEN(A*) 
+Nl)="!":F$(LEN(F$)+Nl)=A«:J=J+LEN(At) 
2800 GOSUB 140: GOTO 2680 
2810 TRAP 2880:G0SUB 2890:IF FHT$='" T 
HEN RETURN 

2820 OPEN IN1,N8,N0,A»:IF HASDOS THEN 
2840 

2830 PRINT iNl!FMT$ 
2840 PRINT tNl,'INT((LEN(F«)-Nl)/250) 
2850 FOR J=NO TO lNT((LEN(Ft)-Nl)/'250) 
:IF LEN(F«)<Jt250+250 THEN ? IN1;F«(J» 
250+Nl,LEN(F»)):G0TQ 2B70 
2860 PRINT iNl;F$(Jt250+Nl,J»250+250): 
NEXT J 

2870 CLOSE iNl: RETURN 
28B0 ? -OUTPUT ERROR":GOSUB 130:CL0SE 
INhGOTO 2810 

2B90 GOSUB 140:FI1T«="":? "ENTER FORHAT 
NAME ";: INPUT F«T$:IF LENiFNT$)=NO TH 
EN RETURN 

2900 FOR J=N1 TO LEN(FI1T$):IF FflTJ(J,J 
)="." THEN ? :? "INVALID NAHE":GOSUB 1 
30: GOTO 2890 
2910 NEKT J 

2920 IF HASDOS THEN A$="D:"!A»(LEN(A») 
+N1)=FMT$:A»(LEN(A$)+N1)=".FHT':RETURN 
2930 A»="C:": RETURN . © 



WHEN YOU SPEND SO MUCH FOR A PRINTER, 
YOU SHOULD HAVE ONE THAT YOU CAN USE-- 
Introducing.... 

THE IBM TOTAL PRINTER/TYPEWRITER 




FEATURES: 

10 and 12 Pitch, Proportional Space, Full Typewriter Use, Auto Correcting, 
Sound Cover, "Smart" Keyboard 

SPECIFICATIONS: 

200 WPM Throughput, Either Serial OR Parellel, Self-Test, Lowest On-Site 
Maintenance, IBM Backed Printer. Cables stocked for all Apple, TRS(I, II, 
III), RS-232 systems. 



PRICE: ONLY $1995 (with 30 Day IBM Service Agreement) 
CONTACT: 

ICOM 11 N. Main, Lombard, Illinois 60148 (312)932-1766 



16K Memory Upgrade Kits 
for Apple"^ or TRS-80® 

Everything you need to up-grade to a 16K system 

Each kit is 100% guaranteed against failure. Add high quality, 
high density memory for less than you would expect to pay! 



20 nano seconds 

8 tested and guaranteed 16K RAM's 

Easy-to-follow instructions 

Only tool required is a household screwdriver 



16K Memory Upgrade Kit $19.95 

Offer ends January 15, 1982 




it5ia 

3il^ction J 1 

6 5outh 5treet Milford NH 03055 
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The Captain 80 Book of 



BASIC 




• Eighteen famous 

adventures, listed in large easy to read type, 
ready to be keyed in. Adventures by Boner, 
Kepner, Powers, Micklus, Forsythe, Greg 
Hassett and others. 

* Includes Temple of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
man's Gold, Thunder Road, Sorcerer's 
Castle, Deadlii Dungeon, Atlantean 
Oddysey and others. These adventures 
would cost over $200 is purchased 
individually! 

* Includes a unique Adventure 
Generator program - not available 
anywhere. YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out- 
come! This program alone is worth the price of 
the entire book! 

* Includes chapters on what an adventure is, how to 
play adventures, how to write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

* Study the techniques and methods used by the 
masters of adventure program writing. All adventure 
programs listed in this book are in their original form 
and in full length. Although specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC. M 

* Available at your dealer approximately | 
November 15th, 1981. The suggested retail price 
of this book is $19.95. 

* The BASIC Adventure Book was compiled 
and edited by Bob Liddil, of The Programmers 
Guild. It measures 8'/2 by 11 inches and contains 
256 paqes 



• ORDER YOURS TODAY! 



Dealer discounts available please inquire 

TRS'SO* is a regklered trademark o( thr Tandy Corp. 
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A neat Christmas 
gift idea! 



Send To: 80-U.S. Journal 

3838 South Warner Street 

Tacoma. Washington 98409 

Please send my copy of the BASIC Adventure Book. My check 
or Money Order for $22.00 ($19.95 plus $2.05 postage and 
handling) is enclosed. 



Name- 



Address 
City 



-State. 



-Zip. 



Visa/MC. 



-Signature 



Exp. Date— 

(206) 475-2219 Phone orders accepted for Visa/MC only 

OrdcrsSS 
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by Richard Lamb 



Design Master is graphics program 
for a 16K Atari. 

This program can draw thousands of 
geometrical designs, most of which are 
symmetrical in nature. There are nine 
different types of basic designs and all 
can be varied by the parameters keyed 
in. The parameters for each design are 
all explained on the screen and some of 
the designs, namely the Spiral, 
Oscilloscope, and Epicycloid, will 
display a larger variety of patterns so 
that the more you experiment, the 
more you get. 

1 have included default parameter 
values for each design so that if you 
enter for the first parameter, a 
representative pattern for a design will 



be displayed. When you are finished 
viewing an Oscilloscope or Epicycloid 
design, hit "S" to stop the display and 
return to the main menu. The 
Oscilloscope and the Epicycloid are the 
only two designs where you can hit 
"S" in the middle of the design gener- 
ation because you may want to inter- 
rupt these displays while the design is 
being drawn. I set the background col- 
or to dark red to produce a nice variety 
of colors for graphics 24. However, the 
background color can be changed by 
hitting "C" in all but the Oscilloscope 
and Epicycloid designs. 
Most of the designs were written us- 



ing a conversion of Cartesian Coor- 
dinates (X,Y) to Polar Coordinates (X 
= radius * COS(angle), Y = radius * 
SIN(angle)) which, in effect, allows 
you to generate designs symmetrically 
by varying the degree of angle and 
length of the radius from the center of 
the screen. 

If you want to see whether you are 
interested in these designs, you can 
code in just one of them (for example, 
lines 100-190, 990-999 changing 994 to 
GOTO 100). If you are bold, then copy 
over one of the designs and experiment 
with your own idea. 




Figure 1 

An added explanation of two terms unfamiliar to 
most: 

An epicycloid is defined as the points generated 
from a point on a circle of radius "a" which is 
rolled around the outside of a circle of radius 



where: 

X = (a + b) * COS(t) 

y = (a + b) * SIN(t)- 



■a* COS((a-fb)/a) * t 
a* SIN((a + b)/a) * t 




Figure 2 

A hypocycloid of four points is defined as the points 
generated from a point on a circle of radius "a" which is 
rolled around the inside of a circle of radius "b" = 4* a. 

where: 

X = a * COS ' (t) 

y = a * SIN MO 



SoftSide 



December 1981 77 



Additional 


examples of 


creating the many designs 


available: 






Design 


Parameters 


Description 


1 


3, 103, 95 


Odd-looking circle/ellipse 




150, 159, 95 


Hold down "C" = Psychedelic Egg 


2 


1.01, 91, 5 


Squares around 




1.001, 15, 20 


Gun sight if you can wait 


3 


1.5, 10, 28 


Pillow for the couch 




1.5, 10, 24 


Fish 


4 


20 


Nice to watch draw 




5 


Real Star 


5 


3 


Top of pyramid 




20 


Nice curves 


6 


49, 2 


Porcupine 




20, 20 


Slow explosion 


7 


10, 10, 52 


Apple on edge 




38, 29, 40 


Pretty 


8 


10,3 


Arrow head 




55,4 


Nice Squares 


9 


20, 1, 60 


Sunflower 




40,40, 110 


Two-headed star 





Variables 

A: Number of design (0-95); number 

of radii (100-195, 400-495); length of 

line multiplier (200-295); number of 

lines per cycle (300-395); number of 

lines per angle (500-595); number of 

points in star (600-695); size of 

cycloid (700-795); number of cycloids 

(800-895); number of pedals 

(900-995). 

ANG: 120 degrees. 

B: Number of degrees in DRAWTO 

(200-295); number width of design 

(300-395); counter for DRAWTO 

(400-495); indicator for odd/even 

number of points (600-695); distance 

from the center (700-795); number of 

lines per cyloid (800-895); number of 

lines per pedal (900-995). 

C: Width of radius (100-195); length 

from center from first DRAWTO 

(200-295); degree phase shift on X 

axis (300-395); counter for DRAWTO 

(400-495); column (500-595); column 

limiter (600-695); number of lines per 

cyloid (700-795); size limiter 

(900-995). 

CEl, CE2: Column endings. 

D: Height of design. 

E: Function of number of peaks. 

F: Degree phase shift on Y axis. 

LC: Increment length for column. 

LR: Increment length for row. 

N: Counter for radius from center 

(200-295); number of lines per star 

point (600-695). 

R: Radius from center (200-295); row 

(500-595); row limiter (600-695). 

REl, RE2: Row endings. 

T: Angle. 

W: X coordinate for DRAWTO. 

X: Column. 

Y: Row. 

Z: Y coordinate for DRAWTO. 



Main menu selection. 

10 REH LINE DESI6NS 

15 DIN LC(S0),LR(50):H>4 

20 GRAPHICS 0: COLOR hSETCOLOR 2,0,0 

25 PRINT ■ BEOHETRIC LINE DESIBN 

i" 

30 K=C»SIN(NIT)»C0S(T)*160 

35 PRINT ■ ENTER S TO STOP AFTER DISP 

LAY OF "jPRINT ' DESI8N AND RETURN T 

THIS HENU' 

40 PRINT : PRINT " 1. CIRCLE AND ELLIPS 

ES 

45 PRINT 



50 PRINT 
ERNS 



iPRINT ■ 2. SPIRAL CURVES 



1 PRINT ■ 3. OSCILLOSCOPE PATT 
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55 PRINT :PR1NT ■ 4, P0LY60NS -ALL VER 

TICES CONNECTED" 

60 PRINT : PRINT " 5, AN6LES AND CURVES 

I 

i5 PRINT :PRINT " i. STARS AND CURVES 

■ 

70 PRINT :PRINT ■ 7. EPICYCLOIDS 

75 PRINT :PRINT " 8. HVPOCYCLOIDS HITH 
4 POINTS 
80 PRINT :PRINT ' 9. ROSE PEDALS 

85 PRINT :PRINT " ENTER THE NUMBER YO 

U NANT- 

90 TRAP 995: INPUT A 

95 ON A 60T0 100, 200, 300, 400, 500, iOO, 7 

00,800,900 

Circles and Elipses. 

100 REN CIRCLE RADII 
105 GRAPHICS 0: COLOR IrSETCOLOR 2,0,0 
110 PRINT :PRINT " CIRCLE/ELLIPTIC 
AL PATTERNS":? :? "ENTER FOR DEFAULT 

PARAHETERS -*: print " 70, 103, 90" 
115 print : print : PRINT "HON HANY SPOK 
es on your NHEEL?" 
120 TRAP 995:PRINT " EXAMPLE 1, 2, 5, 

10, OR 1.3, ETC.": INPUT A: IF AOO THE 
N 130 

125 A=70!B=103;C=90!60T0 150 
130 PRINT :PRINT "HON NIDE THE WHEEL?" 
135 TRAP 995: PRINT " A CIRCLE = 103, 

HAX = 159 ": INPUT B 
140 PRINT :PRINT "HON TALL THE NHEEL? 

■ 

145 TRAP 995: PRINT " A CIRCLE = 90, 

NAX = 95 ": INPUT C 

150 GRAPHICS 24:C0L0fi 1:SETC0L0R 2,4,0 

:OEG 

155 ANG=360/A 

160 FOR N=l TO A:PLOT 160,96:T=N»ANS 

165 X=(BtC0S(T)+160):Y»=(C»SIN(T)+96) 

170 DRAHTO X,Y:NEXT N 

175 FOR N=l TO A:PLOT X,Y:T=NtANG 

180 X=(BtC0S(T)+160):Y=(C«SIN<T)+96) 

185 DRANTO X,Y:NEXT N 

190 GOTO 990 

Spirals. 

200 REH SPIRAL PATTERNS 

205 GRAPHICS 0:SETCOLOR 2,0,0:C0L0R 1: 

DE6 

210 PRINT :PRINT " SPIRAL PATTERNS" 

215 PRINT : PRINT "ENTER FOR DEFAULT 

PARAMETERS -•:PRINT " 1.007, 44. 10" 

220 PRINT ; PRINT "MULTIPLIER TO INCREA 

SE THE LENGTH " 
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225 PRINT 'OF EACH LINE DRAMN 

■ 

230 TRAP 995:PRINT " EKAHPLE I. I, 1.0 
1, 1.05, ETC.":1NPUT A:IF AOO THEN 24 


235 A=1.007:fl=44:C=10:G0T0 255 
240 PRINT : PRINT "NUMBER OF DEGREES FO 
R EACH TURN ' 

245 TRAP 995!PRINT " EXAMPLE 10, 20, 
45, 110, ETC.'ilNPUT B 
250 TRAP 995: PRINT : PRINT "LENGTH FROM 
CENTER OF SCREEN SPRINT 'EXAHPL 
E 1, 5, 10 ETC.": INPUT C 
255 GRAPHICS 24:C0L0R 1:SETC0L0R 2,4,0 
:DEG 

260 N=0:R=C:PLOT 160,96 
265 R=A»R:T=N»B:N=N+1 
270 )(=RtC0S(T)+90:Y=RtSIN(T)+160 
275 IF X>191 OR X<0 THEN 990 
260 IF Y>319 OR Y«) THEN 990 
285 DRAHTO Y,X:G0T0 265 

Oscilloscope. 

300 REM tU OSCILLOSCOPE »» 

305 GRAPHICS 0:COLOR 1:SETC0L0R 2,0,0 

310 PRINT : PRINT " OSCILLOSCOPE PA 

TTERNS ":? :? "ENTER FOR DEFAULT 

PARAMETERS -■:PRINT " 15, 2, 90" 

315 ? :? :? "A FUNCTION OF NUMBER OF P 

EAKS ":PRINT " EXAMPLE 1, 2, 4, 10, 

R .8, 1.5 ETC" 

320 TRAP 995: INPUT £:IF EOO THEN 330 

325 E=15;6=2!C=90:G0T0 350 

330 PRINT :PRINT "SMOOTHNESS OF CURVE 

335 TRAP 995: PRINT " EXAMPLE 1=SM00TH 

EST, 2,4,ETC.": INPUT 6 

340 PRINT :PRINT "DEGREE PHASE SHIFT 

F X COORDINATE" 

345 TRAP 995:PRINT " EXAMPLE 0, 30, 6 

0, 90, ETC ": INPUT C 

350 GRAPHICS 24:CDL0R hSETCOLOR 2,4,0 

:DEG 

355 B=159:D=95:F=0:T=1 

360 X=B»SIN(T+C)+160:Y=DtSIN(E»T+F)+96 

:PLOT X,Y 

365 FOR T=l TO 10000 STEP G 

370 X=B»8IM(T+C)+160:Y=DISIM(EtT+F)+96 

375 DRAMTO X,Y 

380 IF PEEK (764)062 THEN NEXT T 

385 POKE 764, 33: GOTO 20 

Polygons — all vertices connected. 

400 REM tttt POLYGONS UH 
405 GRAPHICS 0: COLOR hSETCOLOR 2,0,0 
410 PRINT :PRIMT " POLYGONS - ALL VE 
RTICES CONNECTED":? :? "ENTER FOR DE 




^^■^ 


^ 












»^ 








^^ 




'" * 




80 



December 1981 



SoftSide 



FAULT PARAMETER -":PRINT " M 
415 PRINT : PRINT :PRINT "HOH MANY VERT 
ICES DO YOU HftNT?" 

420 TRAP 995:PRINT " LESS THEN 20 IS 
BEST ": INPUT A: IF AOO THE 
N 430 
425 A=14 

430 GRAPHICS 24:COLOR hSETCOLOR 2,4,0 
:DE6 

435 AN6=360/A:C=2:F0R N=l TO A:T=NtAN6 
.•)(=101tC0S(T)+160:Y=90tSIN(T)+96:PL0T 
X.Y 

440 FOR B=C TO A: PLOT l(,Y:T=BtAN6 
445 W=10itC0S(T)+160:Z=90»SIN(T)+96:DR 
AHTO H,2 
450 NEXT B:C=C+l:NEn N:GOTO 990 

Angles and Curves. 

500 REH m ANGLES AND CURVES 

505 GRAPHICS OrCOLOR 1:SETC0L0R 2,0,0 

510 PRINT :PRINT " ANBLES AND CURVE 

PATTERNS":? :? "ENTER FOR DEFAULT 
PARAMETER -SPRINT " 20 
515 PRINT SPRINT 'THERE HILL BE THREE 
DESIGNS DISPLAYED" 

520 PRINT " SO HOLD YOUR HORSES UNTIL 
THEY ARE ":PRINT " ALL FINISHED" 
525 TRAP 995:PRINT iPRINT sPRINT "HON 
MANY LINES TO FORM THE ANGLES?": INPUT 
A: IF AOO THEN 532 
530 A=20 

532 REM m 1ST DESIGN tttt 
535 GRAPHICS 24:C0L0R 1:SETCOLOR 2,4,0 
:DEG :B=150:C=118:ANG=120 
540 FOR N=l TO A+l;T=N»ANGtl50 
542 ){=B»C0S(T)+160:Y=C«SINa)+120 
544 LC(N) = (160-l()/A:LR(N) = (120-Y)/AsNE 
n N 

546 FOR J=l TO 3:N1=A:F0R K=0 TO A 
548 PLOT 160+LC(J)IK,120-LR(J)tK 
550 DRANTO 160+LC(J+1)»N1,120-LR(J+1)» 
N1:N1=N1-1:NEXT K:NEXT J:GOSUB 598 
552 REH ttt 2ND DESIGN ttt 
554 GRAPHICS 24:C0L0R hSETCOLOR 2,4,0 
556 N1=A:C=4:R=94!LC=(310-C)/A:LR=R/A 
558 FOR K=l TO A+1:K1=K-1 
560 PLOT C+LCtKl,R-LRtKl 
562 DRANTD C+LCtNl,RHR»Nl 
564 N1=N1-1:NEXT K:60SUB 598 
566 Nl=A:C=310:R=94:LC«(C-4)/A:LR»R/A 
568 FOR KM TO A+l:Kl=K-lsPLOT C-LCtKl 
, R-LRtKl : DRAUTO C-LCtNl , R+LR«N1 : N1=N1 - 
UNEXT K:60SUB 598 

570 N1=A:C=155!R=4:LC=C/A!LR«(191-R)/A 
:F0R K=l TO A+1:K1=K-1 
572 PLOT C-LC»Kl,191-LRtKlsDRAt(T0 2IC- 
LCtKl,R+LRtKl:Nl=Nl-l:HEXT KsBOSUB 598 
574 N1=A:C=155:R=4:LC=C/A:LR=(191-R)/A 
:FOR K=l TO A+1:K1=K-1 
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576 PLOT C-LC»K],R+LR»K1:1>RA«T0 2*C-LC 
»K1,191-LRIK1;NI=N1-1:NEXT K:GOSUB 598 
578 REH UU 3RD DESIGN %Ut 
580 CEl=0:CE2*310:REl=0:RE2»187sCE=CEl 
582 GRAPHICS 24:C0L0R hSETCOLOR 2,4,0 
584 N1=A: R=94: LC= i CE-155) /A: LR'^R/A: FOR 
K=0 TO A 

586 PLOT 155+LCtK,R-LR»K:DRA«T0 155+LC 
»N1,R+LR»N1:N1=N1-1:NEXT KilF CE=CE2 T 
HEN 588 

587 CE=CE2:60T0 584 

588 RE-REl 

589 LC=155/A:LR=(RE2-REl)/(2tA):F0R K= 
TO A:PLOT INT(155-LC»K),INT(95-LR»K) 
iDRAHTO INT(3iO-LC»K),INT(RE++LRtK) 

590 NEXT K 

591 IF RE2<RE1 THEN 990 

592 RE=RE2:RE2=RE1:RE1=RE:B0T0 589 
598 FOR JJ=1 TO 200:NEXT JJ; RETURN 

Stars and Curves. 

600 REH m STARS MITH CURVES »tt 
605 6RAPHICS 0:COLOR hSETCOLOR 2,0,0 
610 PRINT rPRINT ' STAR KITH CURVES 

'!? :? "ENTER FOR DEFAULT 
PARAMETERS -"iPRINT " 14, 8 
615 ? :? !? "HOW MANY POINTS IN THE ST 
AR?":? " EVEN NUMBER HAKES N POINTS": 
? " ODD NUMBER MAKES 2 X N POINTS" 
620 PRINT " MAX = 49° 
625 TRAP 995: INPUT A: IF AOO THEN 635 
630 A=14:N=B:eOTO 650 
635 PRINT :PR1NT "HON MANY LINES PER P 
OINT?" 

640 TRAP 995:PRINT " EXAMPLE 2,3,5,10 
, < 30 IS BEST": INPUT N 
650 GRAPHICS 24:C0L0R hSETCOLOR 2,4,0 
:DEG :ANG=360/A:B=1 
655 FOR J=l TO A+hT=J»ANG 
660 C=150tC0S(T)+160:R=95tSIH(T)+96 
665 LC(J)=(160-C)/N:LR(J)=(96-R)/N:NEX 
T J:IF A-2t(INT(A/2))=0 THEN B=2 
670 FOR L=l TO A/B:N1=N!F0R K=0 TO N 
675 PLOT 160+LC(L+l)»K,96-LR(L+i)tK 
680 DRAWTO 160-LC(L)INl,96+LR(L)tNl 
685 PLOT 160+LC(L)tK,96-LR(L)tK 
690 DRAHTO 160-LC(L+l)«Nl.96+LR(L+l)»N 
hNl=Nl-l:NEXT K:NEXT L:BOTO 990 

Epicyloids. 

700 REM ttt EPICYCLOIDS UUtttttt 
705 GRAPHICS 0:COLOR hSETCOLOR 2,0,0 
710 PRINT :PRINT " EPICYCLOID PATT 
ERNS ":? :? "ENTER FOR DEFAULT 
PARAMETERS -•:PRINT " 
712 IF E=l THEN PRINT 
LARGE, TRY AGAIN" 



20, 32, 20 » 
PARAMETERS TOO 
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715 PRINT :PRINT :PRINT "DISTANCE OF C 
YCLOID FROM CENTER?" 
720 TRAP 995:PRINT • EXflHPLE 5,10,20 
,30, < 50 IS BEST "iPRINT " 

"! INPUT B:IF BOO THEN 60T0 730 
725 B=20:A=32:C=30:80TO 750 
730 PRINT :PRINT rPRINT "SIZE OF CYCLO 
ID? 
735 TRAP 995: PRINT " EXflHPLE 5,10,20, 

< 50 ALSO IS BEST"! INPUT A 
740 PRINT : PRINT : PRINT "SMOOTHNESS OF 

LINES PER CYCLOID? " 
745 TRAP 995: PRINT " EX 1=SH00THEST, 
2, 5,10, 20, 50 ETC"! INPUT C 
750 6RAPHICS 24:C0L0R hSETCOLOR 2,4,0 
!DEB !T=0!E=0 

755 X=(A+B)»COS(T)-AtCOS(((A+B)/A)IT)+ 
160:Y=(A+B)tSIN(T)-A»SIN(((A+B)/A)tT)+ 
95 

760 PLOT X,Y:FOR T=0 TO 50000 STEP C 
765 X=(A+B)tCOS(T)-AtCOS(((A+B)/A)»T)+ 
160!Y=(A+B)»SIN(T)-AtSIN(((A+B)/fi)»T)+ 
95 

767 IF X<320 AND X>0 AND Y>0 AND Y<192 
THEN 770 

768 E=1:60T0 700 
770 DRAHTO X,Y 

775 IF PEEK (764) =62 THEN 990 
780 NEXT T:GOTO 990 

HypocyloJd with four points. 

800 REH U HYPOCYCLOIDS tttt 



805 GRAPHICS 0: COLOR liSETCOLOR 2,0,0 
810 PRINT iPRINT " HYPOCYCLOIDS 

":? !? "ENTER FOR DEFAULT P 
ARAHETERS -': PRINT " 25, 20 
815 PRINT !PRINT iPRINT "NUMBER OF CYC 
LOIDS? 

820 TRAP 995:PRINT " EXAMPLE 1, 2, 5, 
10, 20, MAX=95 ■: INPUT A: IF AOO THE 
N 830 

825 A=25!B=20!G0T0 850 
830 PRINT iPRINT "HON HANY LINES PER C 
YCLOID ?" 

835 TRAP 995:PRINT " SMOOTHNESS, EX. 
20=SM00TH, 5=R0UGH": INPUT B 
850 GRAPHICS 24:C0LDR liSETCOLOR 2,4,0 
:DEG :ANG=360/B 

860 FOR K=l TO A 

861 C=C0S(AN6):R==SINiAN6):N=95/A 

863 PLOT KIN»C»C>C+160,K»«tRmR+95 

864 FOR N=0 TO B:T=N»ANB 

865 C=C0S(T):R=SIN(T):M=95/A 

870 DRANTO KtMtC»CtC+160,KtH»RIR»R+95: 
NEXT N:NEXT K 
875 GOTO 990 

Rose petals. 

900 REM n ROSE PEDALS till 

905 GRAPHICS OiCOLOR liSETCOLOR 2,0,0 

910 PRINT iPRINT " ROSE PEDALS 

■:? !? "ENTER FOR DEFAULT 
PARAMETERS -"iPRINT " 8, 2, 90 " 



915 PRINT iPRINT iPRINT "NUMBER OF PED 
ALS? 

920 TRAP 995:? " ODD NUMBER PRODUCES 
N PEDALS "i? " EVEN NUMBER PRODUCES 
2 X N PEDALS"! INPUT AilF AOO THEN 930 
925 A=8iB=2iC=90iG0T0 950 
930 PRINT iPRINT "HOW MANY LINES PER P 
EDAL? ■ 

935 TRAP 995!PRINT iPRINT " EX. 1=SM0 
OTHEST, 2,5,10- ROUGHER "i INPUT B 

940 PRINT iPRINT "HON LARGE IS YOUR FL 
ONER? ■ 

945 TRAP 995i PRINT " MAX SIZE IS 95 
, KHICH IS BEST ": INPUT C 
950 GRAPHICS 24iC0L0R liSETCOLOR 2,4,0 
:DE6 !D=360 

952 PLOT 160,95 

955 IF A-2«(INT(A/2))=1 THEN 0-lBO 

960 FOR T=0 TO D STEP 8 

965 X=C»SIN(AtT)»C0S(T)+160:Y=CtSIN(A» 
T)tSIN(Tl+95 

970 DRANTO X,Y:NEXT TsBOTO 990 

990 IF PEEK (764)018 THEN 993 

991 H=H+l!POKE 710,Htl6!lF H=14 THEN H 
=-1 

992 POKE 764, 255: GOTO 990 

993 IF PEEK (764)042 THEN 990 

994 POKE 764, 255! GOTO 20 

995 TRAP 40000: SOTO 256tPEEK(187)+PEEK 
(186) © 



Bugs, Worms 

and other undesirables 





In the TRS-80® version 
Dice (November 1981), 
should read as follows: 



7062 RESUME 5090 



of Melody 
Vme 7062 



Kidnapped has a few problems too. 
Here is a line to insert in the program 
to fix the jump command: 

Apple version: 



805 IF A(>51 THEN 730 

Atari version; 

2075 IF A(>51 THEN 2040 




The memory requirements for Quest 1 
are not accurate. The tape version 
needs 32K and the disk version 40K. 
For those with 24K cassette systems the 
program will load, but may crash with 
an Error 2 (memory insufficient) or 
just hang up. To fix this, load in the 
program and delete lines 2 and 3. 
Change line 1 to read: 

1 60SUB 30000iOPENi3,4,0,"K" 



This will give you a few bytes to spare 
for future enhancements. 



In the Atari program Music Program- 
mer (Noyemher, 1981), page 72 should 
be where page 74 is, the next to the last 
page in the program. 



Atari One Liners 

1 ? " "iPOKE 752,l!P0SITI0N 2,RND(0)I1 
8!? " "!? • "jiFOR X»l 

TO 30!? " "iSOUND 0,99,6, 15-X/3!NEX 
T X:POKE 77, 128! SOTO 1 

2 REM Esc-Ctrl keys for above quotes! 

3 REH Ist! "<" 

4 REM 2ndi "== FHMMGNNN" 

5 REM 3rd! "ZR.RRR.C" 

6 REM 4th! ">->" 

Sheldon Leemon 

14400 Elm 

Oak Park, MI 48237 



1 N=PEEK(560)+256IPEEK(561)+3!P0KE N,l 
7!P0KE 19,90!? CHR«( 125); "222222222222 
10" 



Tilden A. Smith, 

Casilla 101-D, 

Punta Arenas, Chile 
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VOYAGE OF THE VALKYRIE 



By Leo Christopherson (Advanced 
Operating Systems) System re- 
quirements: 16K TRS-80® Model I or 
III; or 48K Apple II or Apple II Plus 
with paddles or a joystick. Suggested 
retail price: tape — $34.95, disk — 
$39.95 

Reviewed by Alan J. Zett 



Recipe: Take one part adventure, 
one part war game, one part arcade 
shoot-em-up, and one part graphics 
and sound a la Leo Christopherson. 
Combine these into one action-packed 
simulation and you have Voyage of the 
Valkyrie, a hybrid BASIC and 
Machine Language program of excep- 
tional quality. 

If you are an adventurer, war gamer, 
arcade freak, or even a computer 
neophyte, this game has something to 
hold your interest. The combination of 
sound and graphics blend together with 
the smoothness and style that Leo 
Christopherson has mastered so well. 

At the start of the game, you will 
find yourself piloting the attack ship 
"Valkyrie," hovering over a mountain 
peak that serves as a refueling base. 
The peak is the only safe place on the 
entire island for the moment. Your 
goal is to conquer the imaginary island 
of Fugloy. (Fugloy is Norwegian for 
"bird island.") The island is mapped 
out in an adventure-type layout with 
"rooms" and directions in which you 
can travel. You can win by capturing 
the ten cities that constitute the island 
kingdom and by stocking up on the 
wealth they contain. Each of these 
cities has a castle that is protected by a 
fleet of birds which constitute the 
Fugloy Air Defense. The birds are 
drawn in finely detailed graphics and 
have a number of life-like mannerisms, 
especially the way they flap their 
wings. 

The overall movement and actions 
are classic examples of the quality pre- 
sent in all of Leo Christopherson's 
work, but I think he has really gone all- 
out this time and produced a fine piece 
of graphics animation. Even the rooms 
in this adventure are displayed with 
graphics. There are rooms with moun- 
tains, ocean views and castles. In order 



to defeat a city, all of the birds must be 
killed or made to surrender. This is ac- 
complished by aiming the cross-hairs 
of your ship's weapon at the birds' 
midsections and shooting them down 
as they fly; not an easy task when they 
are firing back! 

There are five different types of 
birds. Each has a different level of 
fighting ability and a unique method of 
attack. Hawks and Ospreys are easy to 
kill. Condors are medium, but Falcons 
and Eagles are very hard. In addition 
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to the birds that defend the cities, there 
are several Eagles that roam the map in 
search of you. They are known as the 
Fugloy Air Force. They love to ambush 
you, and they will frequently hide in a 
location directly between you and a 
refueling base. 

In addition to sound effects there are 
also musical selections from Richard 
Wagner's operas, which can optionally 
be turned off in the interest of quicken- 
ing the pace of the game. For instance. 
The March of the Tannhauser starts 
off the game, followed by The Ride of 
the Valkyrie every time you capture a 
castle. If you become careless you will 
hear another selection from die 
Walkure, but the game will be over. If 
you should win, you are rewarded with 
the Prelude from Act III of Lohengrin. 
All music is done extremely well using 
a multiple-voice technique that sounds 
as if two notes are being played at the 
same time. The Apple version has 
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Stereo sound effects: Music is played 
through the cassette port and through 
the internal speaker, giving four-voice 
sound. 

All this sounds interesting (pun in- 
tended), but the best part is in the play 
of the game. There is a definite strategy 
required to play this game and win. For 
example, every time the birds attack, 
they fire bolts of energy at you. Each 
shot drains your shields according to 
the type of bird which is attacking. 
Your shields will recharge, but only at 
a set rate. If you deplete your energy 
supply, the shields collapse, the ship 
stalls, and you die. Keeping a supply of 
energy is just as important as capturing 
a city; in fact, it may be the only way of 
surviving an attack when a battle is in 
progress. When your energy levels 
drop too low, it is necessary to return 
to a refueling base to replenish the 
spent fuel. If you have not established 
a second refueling base, you must 
return to the mountain peak to refuel. 
So you can see that the location and 
amounts of your energy resources 
determine how far you'll get in the 
game. 

This is where the strategy comes into 
play. When you defeat a castle, you are 
awarded all the gold contained in the 
castle. This is also the means of getting 
a promotion. Rank and wealth, along 
with energy reserves, are crucial to 
your survival in this fantasy world. But 
if you force the castle you are attacking 
to surrender, you receive no gold. In- 
stead, the city is turned into a refueling 
base. Proper planning of which castles 
to use as bases and which to plunder 
may well decide the outcome of the 
game. In addition, when you defeat the 
roaming band of Eagles, the map lo- 
cation in which the battle occurs is also 
turned into a refueling base. When 
your rank advances to Colonel, the Air 
Force Eagles will attack you whenever 
you hover over a deserted location. By 
using this method you can choose the 
place to defeat them. 

The Apple version has a few unique 
features that are not present in the 
TRS-80® verison. In addition to stereo 
sound, there are provisions for saving a 
game in progress; and when the island 
is totally subjugated, the Apple will 
treat you to a Hi-Res light show! 








Mfim 




FU6L0Y BIRDS 


TOTAL ENERGY 


BIRDS DOWN: 


WSBBmLmmjfSLmm 




BIRDS LEFT: 
FUBLOY AIR FORCE 


AN6REP CONDORS 
DRA6E OSPREYS 




STATUS REPORT: 


EAGLES: 


FRYKT FALCONS 


HAP LOCATION: 45 




BEVAER EAGLES 
JANHER HANKS 


VIEN: NORTH 
NEAPONS: OFF 


FI8HTINB ABILITY 


HANKS: LON 


LUFTI6 FALCONS 




OSPREYS: LON 
CONDORS: NEDIUN 


NEDGAA OSPREYS 
TORDEN CONDORS 




PROGRESS REPORT: 


FALCONS: HI6H 


VAKKER HANKS 




EAGLES: HIGH 


AEKEL HANKS 


GOLD 



SELECT LEVEL: (EASY) 0-1-2-3-4-5-6-7-8-9 (HARD) 



Above: The player's home base, as represented in the TRS-80® version of Voyage of 
the Valkyrie. From this castle the player can monitor the progress of the game. The 
center column shows how many birds have been killed. The upper left quadrant gives 
you vital information concerning the Fugloy Air Force, whose birds will ambush you 
on your way to a refueling base. The other quadrants display status information 
relative to one's play. 



You may be saying to yourself, "So, 
it's great. So what, it's still an adven- 
ture. When you're done playing it, it's 
useless!" I say, "Not so!" There are 
ten levels of difficulty in this game. 
Mapping out the adventure area is a re- 
quired part of the game before you can 
start a serious attempt at winning. 
There are even blank mapping sheets 
included, to aid you in drawing the 
map (which, when finished, may be 
sent to Advanced Operating Systems in 
return for a full-color wall poster en- 
titled "Valkyrie"). But the continuing 
challenge lies in the varying numbers of 
different obstacles to be overcome; the 
variety of their types and locations re- 
quire a different winning strategy for 
each game. Each game is a test of your 
arcade battling skills, logical deduc- 
tion, and reflexes. No two games are 
the same. For this reason alone it is 
more than an adventure. The action is 
constant, and the pace is fast. It is the 
type of game you can play for hours on 
end and lose all track of time. It's like a 
good novel that you just can't put 
down. Boredom never has a chance to 
set in. 

The only gripe I have about this pro- 
gram is that it is virtually impossible to 
play the TRS-80® version without 
a numeric keypad. Here the author 
really struck out. You'd have to be an 



octopus to fight the fleet and win. He 
uses the arrangement of the numbers 
on the keypad to denote the direction 
of the cross-hairs for aiming. Trying to 
remember this when using the top row 
of numbers on a normal keyboard is 
extremely difficult. If there had only 
been a provision for using a similar ar- 
rangement of letter keys or even mak- 
ing use of the arrow keys, I would have 
given the program an A -I- . Instead, I 
must give it an A — as in adventuring, 
astounding, and amazing. 



RACE FOR MIDNIGHT 

from Avant-Garde Creations. System 
requirements: Apple II Plus with 48K 
RAM (Applesoft ROM), and disk 
drive. Suggested retail price: $29.95 

Reviewed by Ulf Lindmark 

It was close to midnight, the hair on 
my arms was growing, an essential in- 
gredient of the potion was missing, and 
I was stuck in a room with an ogre. 
What to do? I simply typed SAVE 
GAME, and then QUIT. I was playing 
Race for Midnight, a new Hi-Res 
adventure just released by Avant- 
Garde Creations. 

This adventure has a very interesting 



SoftSide 



goal. The player must find a way to 
make a potion to prevent him from 
becoming a werewolf and there is a 
time Hmit in which the player must 
complete the necessary tasks. The 
scenario is fully explained in the in- 
structions, which are more complete 
than those in many other adventures. 

Now, to the game itself. Each room 
is very quickly drawn in beautiful full 
color. The monsters and other objects 
were well drawn. Some monsters were 
humorous, others menacing. Race for 
Midnight also has a feature that I have 
rarely seen in adventure games: sound 
effects. There are a lot of them, rang- 
ing from a screaming noise when you 
kill a monster to a rendition of a 
funeral march when you are killed. The 
sounds are not just limited to combat, 
though. There are many others too. 
Another "special effect" that I really 
like is when you kill a monster. The 
picture of the room turns a reddish 
color, which is really eerie. 

The text portion is very good also. 
Pressing the RETURN key toggles be- 
tween text and graphics. In the text 
mode, you see a room description at 
the top of the screen, followed by your 
last several commands. It's very similar 
to Scott Adams' split-screen style. 

The program accepts the standard 
two-word commands. The vocabulary 
is quite sufficient, although the author 
can not anticipate every possible 
response. Most commands had at least 
two possibilities; for instance, 
SEARCH and EXAMINE. This held 
true for the more esoteric verbs as well. 
Another thing adventurers may be glad 
to hear is that this is really not a linear 
adventure. This means that you do not 
have to solve a really difficult puzzle 
just to go to a different location. At 
certain points, going in the wrong 
direction can lead you off into a com- 
pletely different part of the adventure. 
There is no set "path" that you must 
follow. 

Of course, there are one or two 
minor quirks. Occasionally, the pro- 
gram misses filling a small corner of 
the screen, but the picture still looks 
fine. The only other problem that I 
found was that the program stopped 
once or twice for about 15 seconds. 
The instructions said that this wou\d 
happen, however, so I was not 
worried. 

If you enjoy good Hi-Res graphics, 
unusual sound effects, or exciting 
adventures, I would suggest Race for 
Midnight. Its price, $29.95, is about 
the same as other Hi-Res adventures 
presently available for the Apple. I 
hope that the author produces another 
adventure soon; I really enjoyed the 
14th century. 
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MISSILE COMMAND 

from Atari, Inc. System requirements: 
Atari 400 or Atari 800 with 8K RAM. 
Uses cartridge, one or two joysticks. 
Suggested retail price: $39.95 

Reviewed by Dean F. H. Macy 

As missile base commander, you oc- 
cupy tlie "hot seat" in Missile Control. 
For weeks now. Satellite Surveillance 
has been sending you photographs 
showing unusual arms buildup and 
launch base activity in enemy territory. 
Today, the analysts assure you, the 
enemy is in battle-ready posture. 
"Could they be mistaken?" you 
wonder. "Could this buildup really be 
exercises? War games?" Don't kid 
yourself, this is the real thing! It's only 
a question of time now before the 
enemy launches ICBMs targeted for 
the remaining free cities of the world. 
"How much time?" you ask yourself. 
"Will it be tonight?" Instinctively your 
hand moves to the hot Hne. "Ring, 
blast you! Get it over with!" 

"Better cool it. Think about defense 
preparations," you tell yourself. When 
the attack comes you'll have only 
seconds to ready your antiballistic 
missiles. The enemy is powerful. In- 
telligence has kept you posted on the 
enemy's secret stockpiling of ICBMs in 
violation of international agreements. 
His long-range bombers and so-called 
"killer" satellites aren't news to you 
either. No, your real . . (say it) . . fear 
is that the reports of enemy smart 
missiles may be true. Those 
treacherous babies can dodge an- 
tiballistic missiles and home in on the 
target. What are the chances the enemy 
will drop smart missiles? "Pretty 
good," you think. "Pretty good!" 

The situation is desperate. You 
know it. You're going to have to rely 
more on tactics than sheer fire power. 
You'll need all your cunning, all your 
courage, and more than a little luck. 
You're suddenly aware you're sweating 
and freezing at the same time. How 
long now? How much longer? 

"RED ALERT! RED ALERT!" 
Screams the hot line. The sudden shock 
dislodges fear, starts the adrenaline 
flowing. You lift the receiver and hear 
"Enemy ICBMs on a heading for . . ." 
That's it! Move! You press a button on 
the console in front of you. The base 
alarm shrieks the alert. The ABMs are 
in place now. Seconds to go. "Stand 
by! Ready to launch!" Enemy on the 
monitor screen. "Fire!" 

Missile Command is the newest in 
Atari's line of game software using 
superior graphics and sound and re- 
quiring skill on the part of the players. 
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How much skill? After playing 11 
games for three hours (it seemed like 
a week) I managed to rack up 48,655 
points. Not being much of a joystick 
expert, I was pleased. Then I read page 
16 of the manual which states, "Every 
10,000 points earns you a bonus city 
and a musical salute. Your bonus city 
is placed on a vacant site chosen at ran- 
dom . . . Bonus cities will be reserved 
for you until your score reaches one 
million points, at which time you lose 
all cities held in reserve. After all, such 
a talented player really doesn't need 
bonus cities." Obviously Atari expects 
players to exceed one million points. 
Fat chance! 

Upon power-up Missile Command is 
similar to the arcade version: three 
cities, a missile base, and three more 
cities sit at the screen bottom. The 
display at top shows highest score and 
game score. Attacks come in waves, 
with successive ones more difficult and 
challenging. On the sixth wave the 
enemy launches smart missiles which 
tend to bounce off heat waves from 
your ABMs and home-in on your cities 
and base. Only nearly direct hits effect 
them. 

You can lose three cities per wave 
and your missile base with direct hits. 
To protect your cities you must 
judiciously use the 30 ABMs per wave 
assigned to your care. After you have 
used 24 ABMs your aiming cursor 
shrinks letting you know there are only 
six missiles left. At the end of a wave 
your score, if any, depends on the 
number of ABMs and cities remaining. 
If you have no cities left the screen 
displays "THE END". 
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Atari has made provisions for 
several game options. One or two 
players can match skills against the 
computer enemy. If you enjoy fighting 
smart missiles you can elect to dispense 
with other forms of oblivion and just 
shoot the smarties. Perhaps the expert 
player wants to skip waves one or two 
or more at the beginning. He would 
enter the number of skips and get an- 
nihilated faster. Players can also opt 
for no bonus cities. Pick your poison. 
There is a very good option I use. The 
player can press any key and freeze all 
action. Very handy when the telephone 
rings or you need a snack. Another key 
starts the action. 

One operating hint for a high 
cheating score. If you elect to skip nine 
waves and shoot only smart missiles 
and you are an expert with a joystick, 
you can rack up points very quickly. 
Even I scored 78,000 this way. I al- 
lowed my wife (forced is a better word) 
to play Missile Command shooting on- 
ly smart missiles and she scored over 
9,000. (She said the game was a 
frustrating and nerve-racking ex- 
perience.) 

As a game requiring steady hands 
and eyes, and for sheer excitement and 
entertainment, I recommend that you 
rush out and purchase Missile Com- 
mand. The first player to send me a 
photo of himself or herself alongside a 
CRT screen displaying over one million 
points will receive a prize from the 
SoftSide Library. Address your entries 
to Library Editor, SoftSide Magazine, 
6 South Street, Milford, NH 03055. 
Get ready! Aim! Fire! © 




by Lance Micklus 



GETTING A BIT SERIOUS — 
PART 6 



The saga of The Mean Craps 
Machine continues. . . If you 
remember, I had said that the program 
had just been sent down to Adventure 
International for evaluation. Some 
time ago, I told you that it can take 
twice as long as forever to get a prod- 
uct out to the market after it's fin- 
ished because of all of the delays down 
at the distributor. Well, this is a perfect 
example. I don't mean to imply 
anything bad against Scott Adams. All 
I do mean to say is that taking forever 
seems to be a way of life. 

Also, I did not mean to put Scott 
Adams on the spot — although I freely 
admit that I did and I apologize for 
that. I wanted Scott to make his deci- 
sion freely without feeling that he 
might embarrass me should he say 
YUK instead of YOHO to The Mean 
Craps Machine. 

There were a few things I didn't 
share with you last time because I 
wanted to save them for now. Actual- 
ly, the real benefit of writing The Mean 
Craps Machine will come regardless 
of what Scott Adams does. YUK or 
YOHO, The Mean Craps Machine had 
to be written even if nobody wanted it. 

The reason is that people learn 
things much better when there is a 
goal. The best way to learn how to pro- 
gram a computer is to decide on a pro- 
gram as a project and then write it. It 
takes time and money to learn how to 
be a good programmer. When you 
have somebody working for you who is 
very talented, you have to invest time 
and money in that person to develop 
his or her skills. 

In my office, that person is Diane 
Bernard, who we affectionately refer 
to around here as Diane #1 because she 
has only one N in her name. This 
avoids confusion with Dianne #2, 
whose last name is Micklus. Diane 
(with one N) has a lot of experience 
with mainframe computers but much 
less on TRS-80® machines. Her only 
claim to fame is that she is the person 
who modified my Deluxe Personal 



Finance program so that it would run 
on the Model II. Making The Mean 
Craps Machine run on the TRS- 
80® Color Computer was an invest- 
ment on my part to learn the machine. 
However, I let Diane do the Model 
I/III modifications so that she could 
get some experience with fast graphics 
and Machine Language. It is the learn- 
ing experience that is the pay-off to 
The Mean Craps Machine. If Adven- 
ture International decides to market 
the thing and we make some money on 
it, all it means is that besides getting a 
more highly-skilled employee, I will 
also be able to offset my training ex- 
penses. Indeed, the difference between 
making or losing money often rests 
with your ability to make things you 
had to do anyway, also pay off. 

There was a very good reason why I 
had to improve Diane's skills in the 
fast graphics and Machine Language 
area. The reason is called Star Trek III 
for the Color Computer. Star Trek III 
is one of my most profitable programs 
— having sold over 6,000 copies to 
date. Based on its track record, it's the 
kind of a program that's well worth a 
large investment in time, money, and 
training. Although, to be quite honest 
with you, I underestimated the amount 
of effort it was going to take to convert 
it over to the Color Computer. 

In the first place, I didn't know too 
much about the 6809 and Diane didn't 
have very much Machine Language ex- 
perience with any chip. That much I 
had taken into account. Where I 
miscalculated was in the limited size of 
the 16K Color Computer with Ex- 
tended BASIC. At first, I thought we 
could cut Star Trek III down to make it 
fit. But after Diane had worked on it 
full-time for almost three weeks, it was 
clear that it wasn't going to work that 
way. 

We now had three choices. First, we 
could strip it down and make it a Star 
Trek II 'A. I didn't like that idea 
because I think a poorly-written pro- 
gram is worse than no program at all. 
Second, we could just give up and say 
it can't be done. I didn't like that 
because I felt we had already put too 
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much time and effort into it to just 
throw it away. Third, we could make a 
32K version and hope that there are 
enough extra memory machines out 
there to make the thing worth selling. 
After thinking it over, I sat down with 
Diane and laid it on the line. 

My decision was to go with a 32K 
version. Since there weren't going to be 
very many 32K Color Computers, the 
finished product had to be better than 
the usual good — it had to be outstand- 
ing. It had to be so good, that even 
people with 16K machines would be 
willing to plunk down $100 and void 
the warranty on their machines just to 
be able to play this one game. In short, 
this must be a game that every Color 
Computer owner must have, no matter 
what the cost, no matter what it takes 
to upgrade the machine so it will run. 

That's a tall order. 

Poor Diane worked and slaved over 
this thing all summer. At first I think 
she thought that I had given her a proj- 
ect that was beyond what she could 
handle. But she never felt that it 
couldn't be done — only that it was go- 
ing to be very difficult. That's a key 
point I'll get back to later. Another 
thing Diane had to get used to is the 
idea that some experimenting and 
failure is necessary in order to achieve 
success. In fact, sometimes your 
failures can turn out to be very suc- 
cessful. 

One incident that comes to mind is 
the warp out effect. Diane was having 
a lot of trouble understanding the 6809 
at first. Her original warp effect 
Machine Language program didn't 
warp out. It just made an effect that 
looked like a confetti snow storm. 
When I saw it, I jumped up and down 
and said, "Fantastic!!" Poor Diane 
thought I was nuts until I suggested 
that she save her routine and use it for 
a special effect when the short-range 
sensors fail. Had it not been for a 
stupid mistake, we would have never 
thought of this idea and a great effect 
would have been lost. 

Some other mistakes also paid off. 
The shaking of the ship after it has 
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been hit made an unusual line in the 
display. It looks like an invisible wave 
that moves back and forth across the 
image of the "Enterprise." It is the 
result of the frequency of the shifting 
image and the interference of the 
television sync frequencies. Just an ac- 
cident, but it looks terrific. (Maybe I 
shouldn't be telling all of you about 
this. Then you'd think we planned it 
and would praise us for being so smart 
instead of lucky). 

One of the hardest effects we had to 
work on was the crash sound. We tried 
all kinds of things for two weeks and 
came up with nothing even close. 
Finally, we took apart Star Fighter on 
the Model I to see how the author 
made his crash. Boy, you should have 
heard me swear at myself for being so 
stupid. What we really needed was a 
random number generator. It had 
never occurred to me that the Color 
Computer (Model I also) has a ROM 
with 12,000 random numbers in it. All 
you have to do is pick a starting ad- 
dress and you get a whole bunch of 
numbers in no particular order — a 
very clever idea I had never run across 
before. 

Luck was definitely on our side. By 
the time Star Trek III for the Color 
Computer was done. Radio Shack an- 
nounced that they would now offer a 
32K upgrade. Perfect!!! 

Unlike The Mean Craps Machine, I 
know I'll have no trouble getting 
somebody to market Star Trek III. I 
am totally pleased with the finished 
product and I really do believe that any 
Color Computer owner will have a 
hard time passing up this one. Now 
that we're done, we've finally figured 
out how to make a Star Trek II for 16K 
Color Computers. Originally, I didn't 
want to consider such a program 
because I didn't want a stripped-down 
Star Trek III. Now we know how to 
produce a variation of our Star Trek 
III that will still be a quality product so 
you don't feel you're getting half of a 
program. It will be a slightly different 
game, but a good one. 

What this all means is that for all of 
our efforts, we end up with not one, 
but two Star Trek games. Just that 
alone makes it worth the effort. But if 
we can also end up marketing the 
Craps game, then that would be a third 
game which would really make all the 
effort worthwhile. 

(NOTE: At press time. Adventure 
International had decided to market 
the Color Computer version of The 
Mean Craps Machine. The Model I/III 
version may be offered later, although 
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Lance Micklus, Inc. will sell Model I, 
Model III, and CC versions directly, 
themselves.) 



My Speech to Prospective 
Employees 



Like every employer, I get people 
who call looking for a job as a pro- 
grammer. If I run across somebody in- 
teresting, I have a little speech I give 
them and I'd like to share it with you. 
Actually, it's simply a list of things I 
strive for and that I expect the people 
who work for me will strive for also. 

I might start my speech by telling of 
an incident that happened a few 
months ago. My supply of pads for jot- 
ting down phone messages ran out. I 
went to my office supply store here in 
Burlington, VT, to pick up some more 
but they didn't have any more of the 
kind I usually use. So, I bought a dif- 
ferent brand. 

The first time I used them, I 
discovered something interesting. 
There was a place for the caller's name, 
address, the time they called, who took 
the message, and whether or not I'm 
supposed to call them back. Nowhere 
was there a place for the caller's phone 
number. Now I've got to believe that if 
the company who made these phone 
message pads had ever tried to use 
them, they would have noticed im- 
mediately that there's no space for a 
phone number. I've got to conclude 
that whoever designed these phone 
pads never actually used them. 

Speaking of people who produce 
things they, themselves, apparently 
never use, I am absolutely convinced 
people who design automobiles never 
smoke with the air conditioner turned 
on. If they did, they wouldn't put the 
ash tray just below the air vent. I also 
think that people who work in soda 
factories never drink soda. If they did, 
they would put a cap on the bottle that 
can be taken off without requiring the 
use of large tools. On the other hand, 
there is no doubt in my mind that peo- 
ple who work in beer factories drink 
beer. 

I'm sure we could all have a lot of 
good laughs telling stories like this but 
it's not funny to go and buy an expen- 
sive product and wonder if the com- 
pany that made it ever tried to use it. If 
it wasn't good enough for them to use, 
then why do they expect me to buy it? 
When I put a product on the market, I 
want people to feel that it's a product I 
used myself and that they might find 
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useful. So far, that hasn't been too 
hard to do because every program I've 
ever released for market has been a 
program I've used myself. I think it 
shows, too. 

An interesting thing about people is 
that they're all little kids inside, and 
like all little kids, they enjoy a pleasant 
surprise. In all of my programs, I try to 
put some little thing in it that makes it 
do something extra special that wasn't 
expected by the user. It can't be some 
kind of a cheap gimmick. It has to be 
something that makes the user feel that 
whoever wrote the program said, 
"Gee, wouldn't it be nice if it also did 
this." When people buy a program hke 
that and run into these little touches, it 
makes them feel that the product does 
more than they expected — and they 
like that. 

You are your own worst enemy. The 
best way to defeat yourself is to believe 
that you "can't." If Diane Bernard 
believed that she couldn't make my 
Star Trek game into the world's 
greatest Star Trek game ever written 
for any computer by anybody in the 
world, we would have released no Star 
Trek game at all for the Color Com- 
puter. The only things you can't do are 
the things you believe you can't do. 
When I started my company, I had 
every reason in the world to believe 
that it would fail. Had I really believed 
that, this space would probably be 
filled with an advertisement for a 
printer that most of you either don't 
need or can't afford. As for me, I'd 
still be working at our local public 
television station helping them make 
shows which explain to people how 
easy it is to heat your home with wood. 

One of my biggest complaints about 
a lot of programs is that I get the feel- 
ing that the author is trying to say, 
"Look at what I can do. See how 
clever I am." The truth of the matter is 
that there are only two people who care 
about what you can do — your boss 
and your spouse. I care little about 
what your boss thinks you can do 
unless I happen to be your boss. In any 
event, I certainly don't care about what 
your spouse thinks you can do. 

I think the single most overworked 
command in the BASIC language is 
INKEYS. It's a very powerful instruc- 
tion that a lot of people overuse just to 
be fancy. A perfect example comes to 
mind because at the moment I'm 
writing this, I'm training a new person, 
Kim Fosher, to be my office manager. 
Kim has never used a computer before 
in her life. Keys like ENTER and 
CONTROL are all strange to her. Now 



put yourself in her place and imagine 
that besides all of the other things 
you're trying to learn about running 
this place, you're also trying to figure 
out how to run a General Ledger pro- 
gram. You are told that you enter a line 
of data and then when you're done, 
you press this special key that says 
ENTER on it. Kim's a smart woman 
and although she doesn't totally 
understand why you press ENTER 
she'll do it because that's what she's 
supposed to do. Now we come to 
another part of the program and this 
time you press a key but you do NOT 
press ENTER afterwards. At this 
point, Kim has got to think computer 
people are a little nuts. First, she's sup- 
pose to press the ENTER key, then I 
tell her not to press the ENTER key — 
make up your mind! If the program- 
mer who wrote this General Ledger 
program had thought more about peo- 
ple Hke Kim — who is typical of the 
type of person who is going to be using 
this product — and less about impres- 
sing people like me with the mastery of 
INKEY$ (I'm not impressed), it would 
have made this General Ledger pro- 
gram a lot easier to learri. 

One other example of this sort of 
thing comes to mind right now. If any 
of you have terminal programs and 
have called some of the bulletin board 
systems around the country, I think 
you'll agree that the BEEP is a little 
overworked. One system I logged onto 
the other night BEEPed so much, that 
it locked up my MX-80 printer. I don't 
know who the authors of these bulletin 
board systems think they are going to 
impress, but I'd sure wish they'd cut 
it out. 

Another thing I always point out to 
prospective employees is the difference 
between what they've been doing in the 
past for programming and what they'll 
be doing now. In the past, the stuff 
they've written just had to work. If you 
wrote a payroll program, it could be 
the worst payroll program in the 
world. But, so long as it worked and 
the boss was happy with it, you got 
your raise and a pat on the back. In 
this business it has to do more than just 
work. The reason is that there are a lot 
of other people around who are just as 
capable of writing programs as you are 
— maybe even better. Anything you 
write might easily be marketed in com- 
petition with somebody else. Your 
work must be superior if the product 
you create is to survive. 

Of all of the things I look for in a 
prospective employee, there is one 
thing that I definitely feel is the most 



important. It's attitude. You see, 
anything you don't know you can be 
taught. But no matter how smart you 
are, if your attitude is bad, it will 
probably make it difficult to use your 
talents — great as they may be. 

Attitude means a lot of different 
things to different people. Computer 
programmers and hardware designers 
share a lot in common with artists. The 
common ground is that they are 
creative people who are trying to make 
something that has never been made 
before. The purpose of creating 
anything is to have something that can 
be shared and enjoyed by others. What 
purpose would it serve to paint a 
beautiful picture if no one would ever 
be able to see it? What would be the 
point of having an orchestra play a 
beautiful symphony if there were no 
one who came to listen to it? Show me 
a person with the heart of an artist — 
who is humble, and enjoys the work — 
and I'll show you a person with the 
right attitude. Skill? No problem. As 
long as the ability exists, the skills can 
be taught. 



Keep Your Options Open and 
Plan Ahead 



If I had to pick a motto to hang on 
my wall, it would say, "KEEP YOUR 
OPTIONS OPEN." What this means 
is that you want to keep yourself in the 
position where you will have as many 
choices as possible in the future. I'm 
certain that if you ever follow my work 
and look at my decisions, you'll see 
that it is a recurring theme. 

In my last column, I came down 
pretty hard on exclusive rights con- 
tracts. They have their place and I 
understand that. The trouble I have 
with them is that they limit your op- 
tions and that rubs me the wrong way. 
I feel that an exclusive rights contract is 
hke driving a car that has only one 
gear. When you're rolling along on 
level ground it's fine. But when you 
come to a hill you find yourself in a lot 
of trouble because you've got nothing 
to shift. 

Contracts aren't the only place 
where I apply this philosophy. You'll 
also find it in the way I write my pro- 
grams. I avoid features which may be 
particular to one machine. I may use 
such a feature, but if I do, I usually 
have a pretty good idea how I will han- 
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die that problem on another system. 
One place where this shows up is the 
line lengths. I seldom write BASIC 
programs that have more than 128 
characters in a program line. That way, 
I can always go to Microsoft's CP/M 
BASIC if I ever want to. That thinking 
paid off when BASCOM came out for 
the TRS-80® machines. 

Another way to keep your options 
open is to plan ahead for the things 
that you might want to do in the 
future. If you have some idea where 
you're going now, you can start 
building your bridges before you come 
to the streams. This is exactly what was 
done with the ST80 terminal programs. 
Before anyone had ever heard of a 
Model II or Model III, I had already 
planned in my head that ST80-III 
would be capable of running on those 
systems. In other words, it was de- 
signed to be modified for computers 
other than the Model I where it started. 
Although it is written for the Z-80 
chip, its design makes it easy to rewrite 
the whole thing for another chips like 
the 6502 — and it didn't stop there! I 
also gave consideration to the possibil- 
ity of writing my own bulletin board 
programs. Thus, while I was building a 
communications system, my com- 
petitors were trying to write a terminal 
program. That's the difference be- 
tween the way other people think and 
the way I think. It's probably the single 
most important reason why I've been 
so successful. 



Don't be a Copycat 



One of my favorite stories is about 
Mark Twain, master of four-letter 
words which are unprintable here. One 
morning in the bedroom something 
went wrong and Twain began to cuss 
and swear up a storm. When he 
stopped to come up for air, his wife sat 
up on the bed and she began to mimic 
him. She cussed and swore right back 
using all the four-letter words her hus- 
band had just used. When she stopped. 
Twain looked her straight in the eye 
and said, "Honey, you've got the 
words but you don't have the 
melody." 

It is one thing to borrow an idea 
from somebody else — very few people 
come up with a truly original idea — 
but it is something else to imitate 
another person. The copy is never as 
good as the original. Yet an awful lot 
of the stuff you see on the market is 
just an imitation of somebody else's 
work. If a programmer is an artist, and 
the job of an artist is to create that 
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which has never existed before, I must 
assume that those who write these 
cheap imitations are not programmers. 
They're hacks. 

Look at business programs. They're 
all pretty much alike. I find it hard to 
believe that there are only one or two 
ways to write business computer soft- 
ware. Maybe I'm wrong, but it sure 
looks that way. That's why one of the 
projects I'll be working on is some 
business software. We have a lot of 
new and interesting ways of handling 
things. In fact, I'm surprised 
somebody hasn't thought of some of 
my ideas already. 

On the other hand, maybe I 
shouldn't be surprised. Most people 
writing programs today are so busy try- 
ing to imitate the work of others, they 
don't have time for new ideas — even 
obvious ones. I, on the other hand, 
prefer to spend my time trying to think 
of new ideas and see no point in doing 
what's already been done. 

Star Fighter 

One of the best programs I've seen 
to date is Star Fighter by Sparky Starks 
(Adventure International). It is a 
perfect example of many of the things 
I've been talking about. 

In the first place, the game is very 
original. It is the work of an artist 
because the author has made 
something that had never been made 
before. Sure, you could pick it apart 
and find all kinds of ideas Starks bor- 
rowed from somebody else. I certainly 
get the feeling that Star Wars was 
somewhat of an inspiration. But it isn't 
imitating Star Wars, Space Invaders, 
or Star Trek. Best of all, it has a lot of 
fresh ideas. People are always in- 
terested in what's new. Successful peo- 
ple almost always are people who have 
come up with something different that 
works. That's why they attract atten- 
tion. 

Earlier, I talked about attitude. I 
have no idea who Sparky Starks is, but 
I like his attitude. When I play Star 
Fighter, I get the feeling that the 
author created something he enjoyed 
and wanted to share with me. In other 
words, he published the program 
because of what it would do for me — 
which is to give me hours of great 
entertainment. Nowhere do I get the 
feeling that he's trying to show off. I 
don't doubt for a moment that Starks 
is an excellent Machine Language pro- 
grammer but he isn't trying to prove it 
to me. 

Then there are the little touches. One 
night, my Star Fighter was getting a lit- 
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tie beat up and I needed to stop at the 
repair station at Landbase 1. I wasn't 
too concerned. I figured I'd get around 
to it when I raised a little more bounty 
money. Kicking in my Hyperdrive, I 
started zooming through the Cosmos. 
Suddenly, out of my speaker, I hear a 
big backfire and I'm stopped in 
midspace with a drive malfunction. 
The drive malfunction I expected. The 
backfire sound was a total surprise. It 
makes me wonder what other unex- 
pected pleasures await me. According 
to Scott Adams, I won't be disap- 
pointed. There are a lot of unexpected 
pleasures(???). 

Finally, unlike a lot of products I've 
seen. Star Fighter is one of those pro- 
grams you know is a game that the 
author himself played and enjoyed. 
After all, if the author of the program 
didn't like it enough to play it himself 
and enjoy it, why should anybody else? 
No, Starks has probably played this 
game to death, and it shows. 

At any rate. Star Fighter is an ex- 
cellent example of how somebody else 
has used the same rules I do and come 
up with an excellent product that 
deserves a great deal of recognition. 



It's Really an Art 

There is a great fear among many 
people in this market that the big guys 
will take over. While the fear is 
justified, the little guy who writes pro- 
grams as an independent really has the 
advantage. 

Programming is an art far more than 
a science. Art almost never comes from 
big factories. As long as it is possible 
for small independent programmers to 
find a way to market their products, 
the best programs will always come 
from the independents. 

If I were a big computer manufac- 
turer, like Radio Shack or Apple, the 
way I would go about making sure 
there was a lot of good software to sup- 
port my system would be to support 
the arts — specifically the art of com- 
puter programming. All this means is 
that you just make sure independents 
have a way to get their products to the 
market. You definitely do not try to 
compete with the independents to put 
them out of business. 

There's certainly a lot of difference 
between Radio Shack and Apple com- 
puters, and software for Radio Shack 
and Apple computers. Next time 
you're trying to figure out why these 
differences exist, I think you'll find the 
answer in the way these two companies 
support the art of computer program- 
ming. © 
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by David A. Gash 

In this article the TRS-80® "DEFFN" 
feature is explored as a time- and work- 
saving programming aid. 

A major goal in computer program- 
ming, as any textbook will confirm, is 
the performance of a specific task with 
as little code and in as short a time as 
possible. In the field of microcom- 
puters, this is especially desirable, since 
they not only have less memory but 
also perform slower than their main- 
frame counterparts. 

To this end, we, as programmers, 
employ many methods of code reduc- 
tion and streamlining. Some of these 
are simply coding conventions already 
built into the programming language 
we are using; others are little tricks we 
pick up through experience which may 
bend the rules a bit, but produce faster 
code; still others are completely 
separate and distinct programs, or 
utilities. One of TRS-80® BASIC'S 
handiest features (belonging to the first 
group of already-existing tools), is the 
User-Defined Function (DEFFN). 
However, in talking to other program- 
mers, I have found that the majority of 
them don't use it, giving as their 
reason, "I don't understand it." All 
things considered, "DEFFN" is easier 
to use than it is to say! When properly 
used, this feature can become an ex- 
tremely effective code- and time-saver. 
Let's take a look at it. 

What is a Function? 

For all practical purposes, it is a 
built-in subroutine. User-Defined 
Functions (let's call them UDFs from 
now on) enable us to obtain certain 
results without writing an equivalent 
BASIC subroutine (which takes up our 
time), and also without the actual 
transfer of control from the calling line 
to the subroutine and from the 
RETURN statement back to the calling 
line (which takes up the computer's 
time). Some examples of BASIC'S ex- 
isting functions are ASC(string), 
CHR$(number), and LEFT$(string, 
number). 

Each of these functions contains the 
two required parts: a KEYWORD, by 
which the function is recognized, and 
one or more ARGUMENTS, by which 
data is passed to the function. In 
general, functions fall between straight 
code and subroutines in terms of com- 
plexity. That is, they are used most 
often for computations which are 
longer or more complex than we want 



to code repeatedly, but which are not 
so lengthy or difficult as to require a 
multi-line subroutine. For example, we 
need not write a UDF to multiply two 
numbers together; regular BASIC code 
can accomplish the same thing easier 
and faster. On the other side of the 
coin, a UDF won't take a string of 
mixed alphabetic and numeric 
characters and, say, count the number 
of "A"s within it; for that, we would 
need a subroutine. For problems in 
that scope, UDFs are exactly what we 
need. 

Wliy Use Functions? 

The obvious reason is, of course, 
speed. BASIC'S intrinsic functions 
operate much faster than equivalent 
code; UDFs may or may not operate 
faster than the same code in the 
mainline of the program, depending on 
the nature of the function. Therefore, 
the BASIC programmer's primary 
reason for using UDFs will be conven- 
ience. This convenience, in terms of the 
reduced amount and complexity of 
code, generally outweighs their relative 
speed or lack of it. First, it is vastly 
easier to code a UDF call a dozen times 
in the body of a program than a long 
line of code the same number of times. 
Second (and most important), since 
there is less code, there are fewer bugs. 
Period. Once the UDF is coded cor- 
rectly, it can be used repeatedly, with 
the certainty that it will operate 
Without error each time, thus reducing 
overall debug time on your program. 

Types of Functions 

There are two basic (sorry) types of 
functions, numeric and string. A func- 
tion's type is determined solely by the 
type of value it returns (i.e., what the 
function name's variable type is), not 
by what type arguments it has. 
CHR$(number) and RIGHT$(string, 
number) are both string functions, as 
designated by the type identifier "$"; 
ABS(number) and VAL(string) are 
numeric functions, since there is no 
type identifier. (Actually, a numeric 
UDF can have any of the three type 
identifiers "%", "!", or "#" denoting 
integer, single-precision, or double- 
precision, respectively; the value 
returned is the same precision as the 
function's type identifier. As with any 
numeric variable, the default type is 
single-precision; for our purposes, a 
standard non-identified numeric func- 

SoftSide 



tion will do.) Wherever BASIC syntax 
calls for a numeric expression, a 
numeric function may be used; 
wherever a string expression may ap- 
pear in a line of code, so may a string 
function. 

Well — enough discussion. Let's 
code some UDFs and see how they 
work in actual use. 

Examples and Explanations 

The TRS-80® Model II has a very 
nice PRINT® feature; rather than 
hard-coding a print position, such as 
PRINT@915, Model II BASIC allows 
us to code the relative line on the screen 
(0-23) followed by the relative cur- 
sor position (0-79), like this: 
PRINT@(11,35), "(text here)". Quite 
a shortcut from trying to figure out all 
those screen positions! However, 
Model I BASIC doesn't include this 
feature. Rats! Right? Wrong! A simple 
UDF can do the same thing. First, 
define the function with DEFFN and a 
name (let's call it AT, since that's the 
Model II function we're emulating — 
note that because we want a number ais 
the returned value, there is no type 
identifier); follow that with the 
parameter to be passed to the function, 
in parentheses (call them L and P, for 
Line and Position); follow that with an 
equals sign and the actual computation 
using the parameters, and we're 
through. Our complete definition 
looks like this: 

DEFFN AT(L,P) = L * 64 -I- P 

Now, to use the function, just call it 
by FN and its name and pass it the re- 
quired parameters (either the actual 
numbers or variables containing valid 
values). Note that these variables need 
NOT have the same names as those in 
the DEFFN statement, but they must 
be of the same type. That is, to print 
something at position 30 on the seventh 
line on the Model I screen, we can 
either calculate the position and use 
PRINT® 478, "(text)", or, using our 
UDF, we can simply say PRINT® 
FNAT(7,30), "(text)". Obviously, for 
this single PRINT, the UDF takes 
more code and time; but if we're doing 
a lot of PRINTing in our program it 
becomes quite easy to get used to the 
UDF, since we don't have to consult a 
video display worksheet for every 
PRINT. Here's how this UDF works: 
When BASIC encounters the keyword 
FN, it calls the function, AT, and gives 
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One problem I run into constantly in trying to 
format a pleasing, balanced screen display 

is the centering of titles, headings, etc, 
A simple User-Defined Function solved that 

problem for me, by automatically centering the 
string passed to it, regardless of the length. 



the variable L a value of 7 and P a 
value of 30. It then multipHes 64 (the 
length of the screen line) by 7, obtain- 
ing 448, and adds 30, getting a result of 
478. It replaces the function call with 
this calculated value, and executes the 
PRINT® statement normally. It now 
becomes a simple matter to print 
anywhere on the screen we want. Try 
this program: 

10 DEFFN AT(L,P) = L * 64 + P 
20 INPUT"LINE, POSITION";A,B 
30 CLS:PRINT@ FNAT (A,B), 
"*< = = = POSITION" FNAT(A,B) 
40 GOTO 20 

Note line 30, which demonstrates 
that calling the function doesn't really 
DO anything except obtain a number, 
by using it as a field in the PRINT 
statement. Also note that values for A 
(or L) other than the standard line 
numbers 0-15 will cause an ?FC (Illegal 
Function Call) error, as UDFs do no 
error checking; it's up to us, the pro- 
grammers, to supply vahd information 
to the UDF through the parameters. 

Let's examine a string function in 
detail. (Actually, as a general rule, I 
find string functions handier than 
numeric functions, but maybe that's 
just my sloth showing. . .) One prob- 
lem I run into constantly in trying to 
format a pleasing, balanced screen 
display is the centering of titles, 
headings, etc. I used to spend a lot of 
time figuring the print position, 
testing, deciding I didn't like the 
heading, changing it, re-adjusting the 
print position for the new header 
because of the difference in length, 
testing, deciding I didn't like it, and so 
forth, ad nauseum. A simple UDF 
solved that problem for me, by 
automatically centering the string 
passed to it, regardless of the length. 
This is it: 

DEFFN CN$ (A$) = STRINGS 
(32-LEN(A$)/2,32) + A$ 

The name of the function is CN$ 
(for "CeNter"); it carries the type 
identifier "$", indicating that we want 
a string as the returned value; the argu- 
ment is any string variable. Working 
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from the inner parentheses out, the 
UDF first uses an intrinsic function to 
obtain the LENgth of the string to be 
printed, and divides that by 2. It then 
subtracts that figure from 32 (half the 
length of the screen line). This tells it 
how many extra spaces it has on half 
the line (in effect, how far to "tab" to 
the right). It constructs a string of that 
many blanks (the ASCII code for a 
space is 32), concatenates that string of 
blanks onto the left end of the original 
string, and returns that as the final 
string value. Once this is set up, center- 
ing becomes a breeze! Again, try this 
short test program: 

5 CLEAR 1000 
10 DEFEN CN$(A$) = 
STRING$(32-LEN(A$)/2,32) + A$ 
20 INPUT"TYPE ANY STRING";P$ 
30 CLS:PRINT@ 448, FNCN$(P$) 
40 PRINT:GOTO 20 

Now it's getting easy! In fact, let's 
replace that PRINT® 448 in Hne 30 
with our other UDF; using the two 
functions together, centering gets 
easier all the time. Try: 

5 CLEAR 1000 

10 DEFFN AT(L,P) = 64 * L + P 

20 DEFFN CN$(A$) = STRINGS 

(32-LEN(A$)/2,32) + A$ 

30 INPUT"STRING TO BE 

CENTERED" ;X$ 

40 INPUT"LINE TO CENTER IT 

ON";Y 

50 CLS:PRINT@ FNAT(Y,0), 

FNCN$(X$) 

60 PRlNT:GOTO 30 

Note that because the CN$ function 
must begin at the left margin to work 
correctly, we need only pass the AT 
function the line number (to multiply 
by 64), and a for the "offset" 
parameter, and it works fine. As you 
can see, it doesn't take long before 
UDFs start saving us a lot of program- 
ming and debugging time, not to men- 
tion frustration! 

The two examples above are UDFs I 
use in almost every program I write. 
Then, for each individual program, I 
usually end up writing a special func- 
tion or two. The following examples 
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should be helpful in understanding 
how to define and use UDFs. 

Date formatting can be cumbersome 
and inconvenient for the programmer. 
Here's a program with a function 
which returns a string-type date when a 
numeric-type date is passed to it: 

5 CLEAR 1000 

10 DEFFN DT$(M,D,Y) = MID$ 

(" JANFEBMARAPRMAYJUN 

JULAUGSEPOCTNOVDEC ' ,M* 

3-2,3) + "." + STR$(D) 4- "," + 

STR$(1900 -f- Y) 

20 INPUT"MONTH, DAY, YEAR (2 

DIGIT)";MO,DY,YR 

30 PRINT"THAT DATE IS: 

"FNDT$(MO,DY,YR) 

40 GOTO 20 

This one takes the month value 
(1-12), multiphes it by 3 (the length of 
each abbreviation), backs up 2 to get to 
the first character of the abbreviation, 
and extracts that portion of the string 
(with MID$). It then concatenates a 
period onto the month abbreviation, 
the day in string form, a comma, and 
the year in string form (after adding 
1900). Granted, the definition itself is 
long, but we need only code it once. 
After that, any date we need is ob- 
tained easily, as demonstrated in 
Hne 30. 

Many times in a menu-driven 
system, menu options will be selected 
by the first letter of the descriptions, 
rather than by number. A simple UDF 
for "emphasizing" the first letter of 
any string follows: 

5 CLEAR 1000 

10 DEFFN EM$(A$) = "<" + 

LEFT$(A$,1) +">"-!- 

RIGHT$(A$, LEN(A$) - 1) 

20 INPUT"TYPE ANY STRING";S$ 

30 PRINT TAB(25); FNEM$(S$) 

40 GOTO 20 

This handy little rascal takes a string 
(say, "ADD EMPLOYEE REC- 
ORD"), surrounds the first letter with 
the signs "< " and "> ", and tacks on 
the rest of the string, like this: 

< A> DD EMPLOYEE RECORD 



I do keep a * 'library'' of my favorite User-Defined 
Functions on disk and merge them into new 

programs when I begin writing them. In this way, 
my User-Defined Functions have become as 

familiar and easy-to-use as BASICs, and because 
of this, my program entry time is reduced,,. 



This makes menu printing easy; we 
never have to type the "emphasizing" 
characters — just pass it the string, and 
the UDF does the rest! 

Often, names may be in records in 
the form "LASTNAME, FIRST- 
NAME", but we may want to display 
it in the form "FIRSTNAME 
LASTNAME" on the screen or on a 
report. Usually, a subroutine would be 
written to do this, but a UDF will get 
us the same result. This program will 
demonstrate: 

5 CLEAR 1000 

10 DEFFN NM$(A$) = RIGHTS 

(A$,LEN(A$)-INSTR(A$, ",")) 

+ " " + LEFT$(A$,INSTR 

(A$,",")-l) 

20 LINEINPUT"LAST NAME, 

FIRST NAME? ";LF$ 

30 PRINT"THE NAME IS: "; 

FNNM$(LF$) 

40 GOTO 20 

This function uses a name in the 
form "LASTNAME, (comma) FIRST- 
NAME", hence the LINEINPUT. 
(Non-Disk BASIC users would need to 
use two INPUTS and concatenate a 
comma between them to obtain the 
same result, but we're assuming the 
name would actually come from a disk 
file, anyway.) The name is passed to 
the UDF, which uses INSTR to find 
the position of the comma within the 
string. Having found this number, it 
subtracts it from the length of the en- 
tire string to obtain the number of 
characters to the right of the comma, 
then strips those off and saves them 
(the first name). It adds a blank to the 
first name, then (again) finds the com- 
ma, strips off the characters to the left 
of it (the last name), and finally adds 
that to the first name and the blank. 
The result from (for example) 
"SMITH.JOHN Q." is then "JOHN 
Q. SMITH". This has come in handy 
more than once when dealing 
with employee names in compressed 
disk files. 

UDFs can also be very useful for 
verification of input. In the example 
using the "LASTNAME, FIRST- 
NAME" name format, the absence of 



a blank after the comma was important 
to the correct operation of the UDF; if 
there is a blank in front of first name, 
it winds up as an extra space in front of 
the completed string (" JOHN Q. 
SMITH"). In some programs, the op- 
posite is the case; that is, there must be 
a blank between the comma and the 
first name. Ordinarily, an INSTR 
check for a blank would suffice, but 
not in the case of an unusual name like 
"VAN SCHWARTZ, IRVING"; the 
blank following "VAN" would satisfy 
the INSTR function, and if the blank 
following the comma were not there, it 
would not be detected. However (you 
guessed!), a UDF can take care of it 
nicely: 

5 CLEAR 1000 

10 DEFFN VN(A$,C) = ASC 

(MID$(A$, C+\, 1)) 

20 LINEINPUT"LAST NAME, 

FIRST NAME";LF$ 

30 X = INSTR(A$,",") 

40 IF FNVN(LF$,X) = 32 THEN 

PRINT "VALID" ELSE PRINT 

"INVALID" 

50 GOTO 20 

One other technique worth mention- 
ing is that of nesting UDFs. We often 
nest BASIC'S intrinsic functions, such 
as: ASC(MID$(X$,10,1)) or MID 
(A$,VAL(X$),5). UDFs can be nested 
the same way. In fact, they can be 
nested two different ways! Remember 
the centering UDF and the emphasiz- 
ing UDF? Those can be nested explicit- 
ly, like this: 

PRINT FNCN$(FNEM$("DELETE A 
RECORD")) 

or we can define a new function which 
is actually an implicit nesting of two 
(or more) other UDFs. 

DEFFN CE$(A$) = FNCN$(FNEM$ 
(A$)) 

then call the new function just as we 
would either of the other two: 

PRINT FNCE$("CHANGE A 
RECORD") 
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In both cases, BASIC works from 
the inside out, and simply makes 
whatever calls are necessary before 
proceeding; the outer function then 
operates on the returned value from 
the inner function. Of course, with 
both methods, the original two func- 
tions are always unchanged and 
available. 

Summary 

The main points of this article may 
be summed up with a few DOs and 
DON'Ts: 

• DO use DEFFN when a string or 
numeric formula is complex and likely 
to cause typing errors, increasing both 
entry time and debug time. 

• DON'T use it if a subroutine will do 
the job better or more efficiently than a 
ridiculously complicated UDF. 

• DO use it in conjunction with 
BASIC'S existing functions to create 
new, specialized functions to suit your 
specific programming needs. 

• DON'T use it if an intrinsic function 
already exists which does almost exact- 
ly the same thing. 

• DO use it to clarify common opera- 
tions which, while not necessarily com- 
plex, are clearer or easier to understand 
with a UDF. 

• DON'T use it if the operation is so 
simple it requires only a line of or- 
dinary BASIC code. 

In short, use it, but don't overuse it. 
DEFFN can be an enormous time- 
saver when developing a program, but 
only to the point where we spend less 
time using the UDFs than it took to set 
them up! In practice, I have found that 
most of my UDFs are string functions, 
to simplify editing, formatting con- 
catenating, etc., as most standard 
arithmetic may be done with BASIC'S 
very good mathematical functions. I 
do keep a "library" of my favorite 
UDFs on disk and merge them into 
new programs when I begin writing 
them. In this way, my UDFs have 
become as familiar and easy-to-use as 
BASICS, and because of this, my pro- 
gram entry time is reduced even fur- 
ther, as is testing and debugging time. 
In other words, less time and trouble 
between concept and completed pro- 
gram — and that's what it's all about! © 
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by Edward E. Umlor 



As promised in last month's column, 
I am going to start a series on diskettes 
and disk drives. The first thing we 
should look at is the diskette. The same 
principles apply to both the floppy 
diskette and the hard disk. The major 
difference between them is that the 
hard disk read/write head never comes 
in contact with the disk itself, which is 
rotating at 3000+ RPM, while the 
read/write head of a floppy diskette is 
in contact with the diskette (turning at 
300 RPM) when accessed. With that in 
mind we will start to lay the ground- 
work for our little project. 

The floppy diskette has a flexible 
mylar material in the center. Magnetic 
material is bonded to both sides of the 
mylar with a formula that lets it remain 
flexible when cured. This bonding 
material is one of the epoxy resins into 
which the actual magnetic material is 
mixed before coating the mylar. The 
hard disk is made the same way except 
the center is a rigid plate of non- 
magnetic material and the bonding 
material can be rigid when cured. See 



Figure 1 for a cross-sectional view of a 
diskette or disk. The magnetic mate- 
rial can be one of a vast variety 
such as rust, special alloys, or com- 
binations. The surprise is that rust was 
used for early recording tapes and 
devices. It was cheap, available, and it 
is magnetic in nature. Since the early 
days, there have been a lot of various 
materials and formulations that have 
been tried, used and discarded. 

We now proceed to the next step that 
makes a magnetic recording medium 
better. When the magnetic material is 
ground up, the average size of the par- 
ticles is controlled. The smaller the par- 
ticle, the less magnetizing energy is 
necessary to magnetize it. Each 
molecule of iron (or other material that 
can be magnetized) is a small magnet 
itself. Normally the molecules are ran- 
domly oriented, so that individual 
magnetic fields cancel each other out. 
A piece of iron (your car or engine) is 
not a magnet. However, an external 
magnetizing force can be applied, 
which the molecules react to and align 



themselves. When this occurs, the in- 
dividual fields now aid each other and 
you have a magnet. The second benefit 
of using very small particles of 
magnetic materials is that you can have 
a higher percentage of magnetic 
material to binder. This is called in- 
creasing the magnetic density of the 
recording tape. The tapes that adver- 
tise high density are made with ex- 
tremely fine powdered materials. We 
started off with a cross section of a 
diskette or disk in Figure 1 . This same 
coating process is used for hard disks, 
floppy diskettes, and magnetic drums 
as well as magnetic recording tapes. All 
the same principles apply. 

We are now ready for the next step 
in the process of putting our floppy 
diskette together. We now have to 
prepare the surface of the diskette for 
the read/write head. We don't want a 
rough surface in contact with the disk 
drive head. After all we don't want to 
sandpaper the head too fast. Wear on 
the head will never be completely 
eliminated, but it can be greatly re- 
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duced. To do this there are two 
popular methods. You can highly 
polish the surface of the tape or sheets 
of disk material, or highly polish the 
surface of some rollers and then roll 
the material flat between the rollers. 
Both methods are in use and both can 
produce a high quality product. Those 
that polish the surface of the floppy 
diskette usually wait until the diskette 
has been punched out of the sheet of 
coated mylar, and then polish only the 
area of the diskette that will be used for 
data storage. 

Producing the little round diskette is 
done with a press and die method. That 
good old chunka . . . chunka . . . 
chunka method. On each chunka of 
the press, a diskette is formed with the 
center hole and the index hole (the httle 
hole just out from the center hole) as 
well as all the sector holes if it is to be a 
hard sectored diskette (see Figure 2). 
The product could be used right now, 
but would have a very short life span 
due to injury. The surface of the 
diskette could be scratched or con- 
taminated or the diskette bent, folded, 
or mutilated quite easily if left as is 
from this process. 

In order to protect it, the manufac- 



turers decided to enclose the diskette in 
an envelope (see Figure 3). The protec- 
tive envelope is composed of a strong 
but flexible outer plastic layer with a 
soft lint-free liner. The liner lessens the 
wear on the diskette surface as well as 
keeping the working surface free of 
dust. The front and back halves of the 
envelope are ultrasonically bonded to 
each other after the diskette has been 
placed inside. The technique of 
ultrasonic bonding keeps the energy 
and heat confined to a very small area 
and prevents damage to the diskette 
during bonding. 

We now have our completed 
diskette. The envelope has an oval 
opening from the center toward the 
outside edge. This is the opening where 
the read/ write head contacts the disk. 
The hole just to the outside of the hub 
hole (center hole) is for the index/sec- 
tor holes, and of course the 
write/protect notch is on the outer 
edge of the envelope. We will be going 
into more detail about how the disk- 
ettes are organized for data storage 
next month. This also brings up a sore 
point with me concerning disk drive 
advertisements. The unformatted 
storage figure quoted by some is ab- 
solutely meaningless. The formatted 



storage capacity of a diskette with any 
given drive is dependent upon the disk 
operating system, density, and actual 
number of tracks being utiHzed. A 
40-track drive can be used as a 35-track 
drive and thus lose its full data storage 
capacity. A drive fully capable of dou- 
ble density can be run in single-density 
format and reduce the data capacity. I 
can sympathize with the drive 
manufacturers up to a point, but only 
to a point. They should state the max- 
imum formatted storage capacity of 
their drives for both single- and 
double-density operation. These 
figures have true useful meaning to the 
disk drive purchaser. 

I had best stop here or I will be into 
next month's column. In Janurary we 
will be discussing how the disk is 
organized (formatted) to receive data, 
some of the requirements of disk 
drives, double/single density oper- 
ation, and some of the disk operating 
systems (DOSs) that are available. 
Well, that is about all for now from the 
old Granite Knoggin' for this month. 
Remember — if you have any ques- 
tions about the information in this col- 
umn, please write and we will have a 
question-answering session at the end 
of following columns. © 
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307 West Main Street 
Maple Stiade, NJ 08062 

(609)667-1667 



• AMP "Data-sette" blank 
cassettes for digital use 

• Cassette Storage Boxes 

• Cassette Labels - 
Custom printing & blanl< 

• Custom Record Album 
production from your tapes 

• Stereo and Spol<en Word 
cassette duplication 

Call or write to: 
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for more information. 

All cassette work at 

AMP R. & D. is custom work 

to fit your needs. 
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Coming next month in 

GAMBLER 

Next month it's a sure bet. 
Play the ponies, spin the 
wheel of fortune, and more 
in these games for up to four 
players. 

APPLE 
CAPTURE 

Your hungry worm searches 
the orchard for apples to 
chomp. 

PLAZA HOTEL 

You are the house detective 
looking for a bomb hidden in 
one of the rooms. 

Plus: 

Word Wars, Number Race, 
and much, much more. 
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ADVENTURE has gone GOLD! 

AND WE WANT YOU TO CELEBRATE WITH US' 

The 12 Scott Adams' Adventures are presented in our Limited Goid Edition. Each tape and disk is in- 
dividually nutnbered, and guaranteed until July 10th, 2001. Each package contains a certificate of 
authenticity, a registration card and an autographed, (rather interesting) photo of the author. 
The 12 Adventures normally retail for $239.40 individually on tape and $159.80 for 4 triple-pack disks. 

The Limited Gold Edition is yours . . . forever 
N V ■, /L • . .;:sa;;. . . . for $100.00 tape or disk, value for value. 

To Order: The Limited Gold Edition is available 

in very limited quantity, from interested Soft- 

■ j^^^^ Retailers. Ask your local dealer. If he does 

|aveThe Limited Gold Edition . . . Then call 

1-800-262-4242 (Local 

will direct you to a dealer who does . 

Limited Gold Edition. Supply Is Limited! 





"^""W SoiJ Sj., 
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The Limited 
Gold Edition 

is available in 

the following 
P^ifferent 
; configurations. 

» Apple 2 Disk 

, withTRS-80 J^**^"*' 
Disk in same 
package ,,,,^1^ '^^ 

' Atari Tape'lMnP 

- Atari Disk ^^'^^^' 

' TRS-80 Tape 

'100.00 Each 





^'../ 



m kei^lnf^ith th^^plWt of Adventure 

$1,000.00 in Gold Coins is hidden within 

The Limited Gold Edition. Its waiting for you. 



Limited < 

distributed exclusively by: | 

8295 SO. LA GIENEGA BLVD. • INGLEWOOD, GA 90301 



TWO ISEW GAMES FROM SSI FOR THE 

APPLE 
AND THE 



TRS-80i 




THE BATTLE OF SHILOH: A brigade- level simulation of tliefirst grand battle of the Civil War, 
pitting tlie Confederate Army against Grant's troops and Union gunboats. 




TIGERS [N THE SNOW: Ghostlike Nazi Tiger tanks and infantry sweep across the dark, 
frozen forests of the Ardennes against a surprised U.S. force in this division/ regiment- level 
simulation of Hitler's last desperate attack 



As part of our demanding standards of excellence, we use m3XBll floppy discs. 



We know it hasn't been easy 
for you TRS-80® owners to see so 
many great made-for-Apple-only 
games from SSI pass you by. But 
then, it hasn't been easy for us to 
design games for a 16K cassette 
format good enough to meet our 
critical standards. 

After all, we've got a reputa- 
tion to protect, a reputation in 
strategy gaming for unsurpassed 
sophistication, innovation, realism, 
and playability. 

Well, our designers have been 
hard at work, and we've not only 
met but surmounted the challenge. 
We're delighted to announce two 
historical wargames — deserving 
of the SSI label — for both the 
Apple® and the TRS-80® (16K 
cassette for the TRS-80 Model I 
and ill; 48K disc for Apple II with 
Applesoft ROM card). 

Combining our extensive war- 
game-design experience and superior 
programming techniques, we've 
given a fresh new look and feel to 
these favorite classic battles. 

At $24.95 each for TRS-80 
cassette and $39.95 each for Apple 
disc, these are extraordinary games 
at quite an ordinary price. 

So head on down to your 
local store and check them out 
today! 

VISA and M/C holders can 
order by calling 800-227-1617. 
ext 335 (toll free). In California, 
call 800-772-3545, ext. 335. 

To order by mail, send your 
check to: Strategic Simulations Inc, 
Dept SS-1, 465 Fairchild Drive, 
Suite 108, Mountain View, 
California 94043. 

All our games carry a 14-day 
money- back guarantee. 
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Apple is a registered trademark of Apple Computer Inc 



TRS80 is a registered trademark of the Tandy Corporation 



